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1.0 GENERAL INFORMATION 

1.1 PROGRAM ABSTRACT 

1.1.1 STRUCTURE OF PROGRAM 

THIS DIAGNOSTIC OCCUPIES 14. 5K WORDS OF MEMORY AND IS COMPATIBLE WITH 
BOTH XXDP AND ACT. IT CAN BE RUN STANDALONE UNDER XXDP, AND CAN BE 
CHAINED UNDER XXDP, ACT AND APT IN ACT MODE (SEE "CREATE CORE IMAGE" 
COMMAND BELOW FOR DETAILS OF CHAINING PROCEDURE). IT IS A SINGLE 
PROGRAM FROM THE STANDPOINT OF THE DIAGNOSTIC USER, BUT ME HAVE 
INCORPORATED INTO IT A CONTROL MODULE WHICH WILL LATER BE RELEASED 
INDEPENDENTLY AS A DIAGNOSTIC SUPERVISOR. 

WHEN THIS DIAGNOSTIC IS STARTED AT ADDRESS 200, CONTROL GOES FIRST TO 
THE SUPERVISOR PORTION, WHICH WILL ASK CERTAIN "HARD CORE" QUESTIONS 
ABOUT THE ENVIRONMENT. THEN IT WILL ENTER COMMAND MODE, INDICATED BY 
A PROMPT CHARACTER (DS B>). AT COMMAND MODE THE OPERATOR MAY ENTER 
ANY OF SEVERAL COMMANDS AS DESCRIBED BELOW. 

THE SUPERVISOR CODING FOLLOWS IMMEDIATELY THE DIAGNOSTIC TEST CODING, 
BUT THE SUPERVISOR LISTING HAS BEEN SUPPRESSED FOR GENERAL 
DISTRIBUTION. A LIMITED DISTRIBUTION HAS BEEN MADE TO FIELD SERVICE 
OF THE SUPERVISOR ASSEMBLY LISTING, AND IT MAY BE CONSULTED IN EVENT 
OF A SOFTWARE PROBLEM. 

1.1.2 DIAGNOSTIC INFORMATION 

THE RLll/RLVll CONTROLLER TEST (PART 2) IS A PDP-11 (LSI-11) BASED 
PROGRAM THAT WILL TEST THE CONTROLLER. IT COMPLIMENTS PART 1 BY 
EXTENDING THE TEST COVERAGE TO INCLUDE WRITE DATA, READ DATA, WRITE 
CHECK AND READ DATA WITHOUT HEADER COMPARE. IT IS AIMED AT FULLY 
TESTING THE CONTROLLER IN THESE AREAS, BUT BY DEFAULT ALSO EXERCISES 
THE DRIVE. THE TEST COVERAGE OF THE PROGRAM IS EXTREMELY HIGH. 

1.2 SYSTEM REQUIREMENTS 

1.2.1 HARDWARE REQUIREMENTS 

PDP-11 /LSI-11 PROCESSOR WITH 16K OR MORE OF MEMORY 
CONSOLE DEVICE (LA30,L A36, VT50,ETC. ) 
RLll/RLVll CONTROLLER(S) 
1-8 RL01 DRIVES 

1-8 RL01K CARTRIDGES WITH BAD SECTOR FILE 
KW11P, KW11L (OPTIONAL) 
LINE PRINTER (OPTIONAL ) 

1.2.2 SOFTWARE REQUIREMENTS 
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(FORMERLY MD-ll-DZRLB-A) 

1*3 RELATED DOCUMENTS AND STANDARDS 

RL01 USERS MANUAL ( EK-RL01-UG-PRE ) 
XXDP USERS MANUAL 

1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

THE RL01 SUBSYSTEM SHOULD HAVE SUCCESSFULLY RUN THE FOLLOWING 
PROGRAMS : 

CZRLA30 RL11/RLY11 RL01 CONTROLLER TEST (PART 1) 

1.5 ASSUMPTIONS 

THE HARDWARE OTHER THAN THE RL01 SUBSYSTEM IS ASSUMED TO WORK 
PROPERLY* FALSE ERRORS ^ AY BE REPORTED IF THE PROCESSOR, ETC*, DO NOT 
FUNCTION PROPERLY. 

2.0 OPERATING INSTRUCTIONS 

2.1 HOW TO RUN THIS DIAGNOSTIC 
2-1-1 THE SIX STEPS OF EXECUTION 

THIS DIAGNOSTIC SHOULD BE LOADED AND STARTED USING NORMAL XXDP 
PROCEDURES. THE START COMMAND SHOULD NOT SPECIFY AN ADDRESS, BECAUSE 
THE DIAGNOSTIC HAS THE PROPER TRANSFER ADDRESS CODED INTO IT. 

VI HEN THIS DIAGNOSTIC IS STARTED, THE FOLLOWING STEPS WILL OCCURS 

********** 
* step 1 * 
********** 

A SHORT SERIES OF "HARDCORE QUESTIONS" WILL BE ASKED t 

QUESTION MEANING 



L-CLK ( L ) N ? IS THERE AN L-CLOCK? 

P-CLK (L) N ? " " " P-CLOCK? 

50HZ (L) N ? IS THE POWER 50 CYCLES (AS IN EUROPE )? 

LSI (L) N ? IS MACHINE AN LSI? 

LPT (L) N ? IS THERE A LINE PRINTER? 

MEM (K) (D) 16 ? HOW MANY K OF MEMORY ARE THERE? 

THE DEFAULTS (SHOWN AFTER EACH QUESTION) CAN BE SELECTED BY HITTING 
CARRIAGE RETURN. IT IS POSSIBLE THAT NOT ALL OF THE QUESTIONS WILL EE 
ASKED: FOR EXAMPLE, IF YOU SAY "YES" TO THE L-CLOCK QUESTION, THE 
P-CLOCK QUESTION WILL NOT BE ASKED. 
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IF NEITHER P OR L CLOCK ARE ANSWERED YES THE OPERATOR WILL BE ASKED TO 
TYPE TWO CHARACTERS 4 SECONDS APART. 

********** 

* STEP 2 * 
********** 

WHEN YOU HAVE ANSWERED ALL THE HARDCORE QUESTIONS, THE DIAGNOSTIC WILL 
ISSUE THE PROMPT "DS-B>". FROM THIS POINT UNTIL THE TIME WHEN YOU 
RESTART XXDP, YOU WILL BE TALKING TO THE DIAGNOSTIC, NOT XXDP. WE 
WILL REFER TO THE PRESENCE OF THIS PROMPT AS BEING IN DIAGNOSTIC 
COMMAND MODE, AS OPPOSED TO XXDP COMMAND MODE. 

AT THIS POINT YOU WILL ENTER A "START" COMMAND. THIS IS NOT THE SAME 
AS THE XXDP "START" COMMAND, WHICH YOU ALREADY ISSUED IN RESPONSE TO 
THE XXDP DOT PROMPT. THIS "START" COMMAND CAN TAKE A NUMBER OF 
SWITCHES AND FLAGS (ALL OPTIONAL) AND THE DETAILS OF THESE ARE SET 
FORTH IN "2.3 DETAILS OF COMMANDS AND SYNTAX". HOWEVER, IN ORDER TO 
USE THE PROGRAM, ALL YOU NEED TO SAY IS SOMETHING LIKE THIS: 

sta/pass:i/flags:hoe 
things to note here: 

1. only the first three characters of this or any command at the 

"DS-B>" LEVEL NEED TO BE TYPED. 

2. THE "PASS" SWITCH SPECIFIES HOW MANY PASSES YOU DESIRE. A 
PASS CONSISTS OF RUNNING THE FULL DIAGNOSTIC AGAINST ALL 
UNITS BEING TESTED (THIS WILL BE EXPLAINED SHORTLY). ONE 
PASS IS SPECIFIED IN THE ABOVE EXAMPLE. 

3. THE "FLAGS" SWITCH MAY SPECIFY ANY OF A NUMBER OF FLAGS, BUT 
THE MAIN USEFUL ONES ARE: 

LOE LOOP ONE ERKOa 

HOE HALT ON ERROR 

IER INHIBIT ERROR PRINTOUT 

THE HOE FLAG IS SPECIFIED IN THE ABOVE EXAMPLE (WE'LL SEE WHY 
SHORTLY). 



********** 

* STEP 3 * 
********** 

WHEN YOU HAVE TYPED IN A "START" COMMAND, THE DIAGNOSTIC WILL COME 
BACK WITH THE QUESTION "# UNITS?" TO WHICH YOU SHOULD RESPOND BY 
TYPING IN THE NUMBER OF DEVICES YOU WISH TO TEST. 

A WORD OF WARNING HERE: THE NUMBER OF UNITS DEPENDS ON THE TARGET 
DEVICE OF THE DIAGNOSTIC. FOR EXAMPLE, IF THE DIAGNOSTIC IS DIRECTED 
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AT A DISK DRIVE/ THEN THE NUMBER OF UNITS WOULD BE THE NUMBER OF 
DRIVES TO BE TESTED. WHEREAS IF THE DIAGNOSTIC MAS DIRECTED AT THE 
DISK CONTROLLER* THEN THE NUMBER OF UNITS MOULD BE THE NUMBER OF 
CONTROLLERS* THE TARGET DEVICE OF A DIAGNOSTIC CAN ALWAYS BE 
DETERMINED BY INSPECTING THE "HEADER* 8 STATEMENT NEAR THE BEGINNING OF 
THE SOURCE CODE. ONE OF THE OPERANDS OF THIS "HEADER" STATEMENT 
SHOULD BE THE DEVICE TYPE OF THE DIAGNOSTIC* 

********** 

* STEP 4 * 
********** 

WHEN YOU HAVE TYPED IN THE NUMBER OF UNITS TO BE TESTED, THE 
DIAGNOSTIC WILL ASK YOU THE "HARDWARE QUESTIONS"* THE ANSWERS TO 
THESE QUESTIONS ARE USED TO BUILD TABLES IN CORE^ CALLED "HARDWARE 
P-TABLES". ONE HARDWARE P-TABLE WILL BE BUILT FOR EACH UNIT TO BE 
TESTED* 

THERE ARE SEVERAL HARDWARE QUESTIONS AND THE ENTIRE SERIES WILL BE 
POSED N TIMES/. WHERE N IS THE NUMBER OF UNITS- 

THIS REPRESENTS A NEW PHILOSOPHY IN DIAGNOSTIC ENGINEERING, 
DIAGNOSTICS IN THE FUTURE WILL NOT BE WRITTEN TO AUTOSIZE OR ASSUME 
STANDARD ADDRESSES! INSTEAD/ THEY WILL ASK THE OPERATOR FOR ALL THE 
INFORMATION THEY NEED TO TEST THE DEVICE* 

********** 

* STEP 5 * 
********** 

AFTER YOU HAVE ANSWERED ALL THE HARDWARE QUESTIONS (SEC 2.5) FOR ALL 
THE UNITS/ YOU WILL BE ASKED "CHANGE SW?" IF YOU WANT TO BE ASKED THE 
SOFTWARE QUESTIONS THAT DETERMINE THE BEHAVIOR OF THIS PROGRAM, TYPE 
»Y"* IF YOU WANT TO TAKE ALL THE DEFAULTS TO THESE QUESTIONS, TYPE 
"N", IF YOU TYPE "Y" YOU WILL BE ASKED THE SOFTWARE QUESTIONS (SEC 
2.6)/ AND THE ANSWERS WILL BE PUT INTO THE SOFTWARE P-TABLE IN THE 
PROGRAM. THE SERIES OF QUESTIONS WILL BE ASKED JUST ONCE, REGARDLESS 
OF THE NUMBER OF UNITS TO BE TESTED. 

********** 

* STEP 6 * 
********** 

AFTER YOU HAVE ANSWERED THE SOFTWARE QUESTIONS, THE DIAGNOSTIC WILL 
BEGIN TO EXECUTE THE HARDWARE TEST CODE. THERE ARE SEVERAL THINGS 
THAT CAN HAPPEN NEXT, DEPENDING ON WHETHER A HARDWARE ERROR IS 
ENCOUNTERED AND ALSO ON WHAT SWITCH VALUES YOU SELECTED ON THE START 
COMMAND. CONSIDER THE POSSIBILITIES: 

1* IF NO ERROR IS ENCOUNTERED, THEN THE DIAGNOSTIC WILL SIMPLY 
EXECUTE THE DESIRED NUMBER OF PASSES AND RETURN TO COMMAND 
MODE (PROMPT DS-8>)» 
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2. 



IF AN ERROR IS ENCOUNTERED* THEN ONE OF THREE THINGS HAPPENS, 
DEPENDING ON THE SETTINGS OF THE HOE AND LOE FLAGS. 

HOE SETS THE ERROR WILL BE REPORTED ON THE CONSOLE AND 

THE DIAGNOSTIC WILL RETURN TO COMMAND MODE. 
LOE SET: THE DIAGNOSTIC WILL LOOP ENLESSLY ON THE BLOCK 

OF CODE THAT DETECTED THE ERROR. 
NEITHER HOE NOR LOE SET: THE ERROR WILL BE REPORTED ON 

THE CONSOLE AND NORMAL EXECUTION WILL RESUME 

AS IF NO ERROR HAD OCCURED. 



2.1.2 SAMPLE RUN-THROUGH 

LET'S SEE HOW ALL THIS WORKS IN A REAL SITUATION. RECALL THAT WE 
ENTERED THE COMMAND "ST A/PASS : 1/FLAGS : HOE". THIS WOULD BE A VERY 
TYPICAL WAY TO RUN THE DIAGNOSTIC. IF NO ERRORS ARE ENCOUNTERED, THE 
SINGLE REQUESTED PASS WILL BE EXECUTED AND THE PROMPT WILL BE 
REISSUED. 

IF AN ERROR IS ENCOUNTERED, THE ERROR WILL BE REPORTED AND THE PROMPT 
WILL BE REISSUED (BECAUSE THE HOE FLAG IS SET) . AT THIS POINT THERE 
ARE FOUR DIFFERENT WAYS YOU CAN GET THE PROGRAM GOING AGAINS: 

1. ISSUE ANOTHER "START" COMMAND (THUS GOING THRU ALL OF STEPS 
2, 3, 4, 5, AND 6 AGAIN) 

2. ISSUE A "RESTART" COMMAND (SAME AS START COMMAND EXCEPT THAT 
THE HARDWARE QUESTIONS ARE NOT ASKED) 

3. ISSUE A "CONTINUE" COMMAND (EXECUTION WILL RESUME AT THE 
BEGINNING OF THE PARTICULAR HARDWARE TEST (MOST DIAGNOSTICS 
CONSIST OF A NUMBER OF THESE) THAT IT WAS IN WHEN THE ERROR 
HALT OCCURED. NO QUESTIONS ASKED. 

4. ISSUE A "PROCEED" COMMAND: EXECUTION WILL RESUME AT THE 
INSTRUCTION FOLLOWING THE ERROR REPORT (THIS IS A SPECIAL 
COMMAND AND CAN BE ISSUED ONLY AT A HALT ON ERROR). 

THE MOST TYPICAL THING TO DO HERE IS TO ISSUE THE PROCEED, BUT WITH 
DIFFERENT FLAG SETTINGS. PROBABLY YOU WOULD WANT TO SAY 

PRO/FLAGS MER:LOE?HOE=0 
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THIS MILL DO THE FOLLOWING! 

1. TURN ON THE IER (INHIBIT ERROR PRINTOUT) FLAG 

2. TURN ON THE LOS FLAG 

3. TURN OFF THE HOE FLAG 

4. RESUME EXECUTION AT INSTRUCTION AFTER ERROR REPORT 

THE DIAGNOSTIC WILL NOW LOOP ON THE BLOCK OF CODE THAT DETECTED AND 
REPORTED THE ERROR, BUT NO ERROR PRINTOUT WILL OCCUR. THUS YOU CAN 
STUDY THE ERROR OR SCOPE IT OR WHATEVER. 

WHEN YOU'VE SEEN ENOUGH, YOU MAY HIT CONTROL/C. THIS WILL TAKE YOU 
OUT OF THE LOOP AND PUT YOU BACK INTO COMMAND MODE. YOU NOW HAVE 
THREE CHOICES: 

1. START 

2. RESTART 

3. CONTINUE 

LET'S SAY YOU * VS REPAIRED THE DEFECT FOUND ABOVE AND WANT TO FINISH 
RUNNING THE DIAGNOSTIC. YOU WOULD TYPE 

CON/FLAGS :HOE: IER=0sLOE=0 

THIS WILL RESTORE THE FLAGS TO THEIR ORIGINAL VALUES AND RESUME 
EXECUTION AT THE BEGINNING OF THE HARDWARE TEST YOU WERE IN. IF THE 
ERROR DOES NOT RECUR, THE EXECUTION WILL FLOW RIGHT ON THRU TO THE 
NEXT ERROR OR TO END OF PASS. 

IF AT END OF PASS YOU WANT TO RUN THE DIAGNOSTIC AGAIN, YOU HAVE TWO 

CHOICES I 

1. START 

2. RESTART 

YOU WOULD CHOOSE ONE, DEPENDING ON WHETHER YOU WANTED TO ANSWER THE 
HARDWARE QUESTIONS AGAIN. 



THE FULL PRINT-OUT FROM THE ABOVE DIALOGUE MIGHT LOOK LIKE THIS 



BY 

WHOM 
ENTERED! 

» R DZRKXX 

DZRKXX D 

L-CLK (L) N ? Y D,0 

50HZ (L) N ? D 

LSI (L) N ? D 

LPT (L) N ? D 

MEM (K) (D) 16 ? D 

DS-B>STA/PASSSl/FLAGSsHOE D^O 

# UNITS (D) ? 2 D,0 

UNIT 1 D 

CSR (0) ? D,0 

VECTOR (0) ? D,0 

BR LEVEL (0) ? D,0 

DRIVE (0) ? D,0 

UNIT 2 D 

CSR (0) ? D,0 

VECTOR (0) ? D,0 

BR LEVEL (0) ? D,0 

DRIVE (0) ? 1 D,0 

CHANGE SW (L) ? N D,0 

DZRKXX HARD ERR 00004 TST 003 SUB 002 PC:004130 D 

ERR HLT D 

DS-B>PRO/FLAGSSIERSLOESHOE=0 D,0 

AT THIS POINT THE DIAGNOSTIC IS LOOPING ON THE 
ERROR WITHOUT PRINTING ANYTHING. YOU CAN SCOPE 
THE ERROR UNTIL YOU HAVE LOCATED IT, THEN ~C OUT 
************ **************** ********************* 

~C 

DS-B >C0N /FLAGS SHOES IER I LOE=0 D,0 

CHANGE SW (L) ? N D,0 

DZRKXX EOP 1 D 

DS-B>RESTART/PASSS 1 D,0 

CHANGE SW (L) ? N D,0 
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2.2 HOW TO CREATE A CHAINABLE FILE 

THE DIAGNOSTIC AS RECEIVED FROM RELEASE ENGINEERING CANNOT BE RUN IN 
CHAIN MODE- THA IS WHY IT BEARS THE EXTENSION "BIN" INSTEAD OF "BIC". 
THERE IS A MAY, HOWEVER, TO CREATE A CHAINABLE PROGRAM FROM WHAT 
YOU'VE GOT. 

IT CONSISTS OF RUNNING THE PROGRAM WITH THE SPECIAL COMMAND "CCI" 
ISSUED WHERE YOU WOULD NORMALLY ISSUE A START COMMAND (TO THE PROMPT 
DS-B>. THIS COMMAND CAUSES THE DIAGNOSTIC TO GO THRU ALL THE 
QUESTIONS AND ANSWERS AND THEN TO HALT, JUST WHERE IT WOULD ORDINARILY 
BEGIN EXECUTION OF THE HARDWARE TEST CODE. AT THIS POINT YOU CAN DUMP 
THE PROGRAM AS IT SITS IN CORE TO THE LOAD MEDIUM, WITH THE NEW 
EXTENSION "BIC". 

HERE IS A SAMPLE DIALOGUE TO ACCOMPLISH THIS; 
*R UPD2 

RESTART: XXXXXX 
*CLR 

*LQ AD DI AG. BIN 
XFER:200 CORES 0,60602 
♦START 200 
L-CLK (L) N ? 



DS-B>CCI 

# UNITS (D) ? 4 

CHANGE SW (L) ? N 
PTAB END : 60632 

********** *************************** 

*AT THIS POINT THE MACHINE HALTS AND* 
*YOU MUST RESTART AT ADDRESS XXXXXX* 
************************************* 

*HICORE 60632 
CORE: 0*60632 
*DUMP DKO: DIAG.PIC 

THE RESULT OF DOING THIS IS THAT YOU CAN NOW BUILD AN XXDP CHAIN FILE 
CONTAINING THE XXDP COMMAND 

• R DIAG.BIC 

AND THE DIAGNOSTIC WILL EXECUTE WITHOUT MANUAL INTERVENTION, USING THE 
ANSWERS THAT YOU GAVE IT WHEN YOU DID THE CCI COMMAND. 
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2.3 DETAILS OF COMMANDS AMD SYNTAX 
2.3.1 TABLE OF COMMAND VALIDITY 

THERE ARE FOUR WAYS OF ENTERING DIAGNOSTIC COMMAND MODE, AND DIFFERENT 
SUBSETS OF THE DIAG COMMAND SET ARE AVAILABLE WITH EACH; 



HOW ENTERED 
1. OPERATOR ENTERED *RUN DIAG* 



2. DIAGNOSTIC HAS FINISHED ALL 
ITS REQUESTED PASSED 



OPERATOR INTERRUPTED THE 
DIAGNOSTIC WITH CTRL/C 



4. AN ERROR WAS ENCOUNTERED 
WITH THE HOE FLAG SET SET 



LEGAL COMMANDS 

START 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

CONTINUE 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 

START 

RESTART 

CONTINUE 

PROCEED 

PRINT 

DISPLAY 

FLAGS 

ZFLAGS 



2.3.2 COMMAND SYNTAX 

********************************************** ******************** 

sta(rt>/tests:test-list/pass:pass-cnt/flags:flag-list/eqp:eop-incr 

****************************************************************** 

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES 
SPECIFIED. THE MESSAGE "# UNITS?" IS PRINTED. THE START COMMAND MAY 
BE ISSUED WHEN DIAGNOSTIC COMMAND MODE HAS BEEN ENTERED VIA ONE OF THE 
FOLLOWING: A) OPERATOR TYPED "RUN DIAGNOSTIC" B) DIAGNOSTIC FINISHED 
EXECUTING C) ERROR WAS ENCOUNTERED WITH HOE FLAG SET D) OPERATOR 
ENTERED CONTROL/C. 
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AFTER THE OPERATOR RESPONDS TO "# UNITS?", THE HARDWARE DIALOGUE IS 
INITIATED. WHEN IT IS COMPLETED, THE QUESTIONS "CHANGE SW?«" IS 
ISSUED, AND THE ANSWERS* IF GIVEN, BECOME THE NEW DEFAULTS. THEREFORE 
IT IS NECESSARY TO RELOAD THE PROGRAM IN ORDER TO RETURN TO THE LOAD 

DEFAULTS. 

THE SWITCH ARGUMENTS ARE AS FOLLOWS: 

"TEST-LIST" IS A SEQUENCE OF DECIMAL NUMBERS (1:2 ETC.) OR RANGES OF 
DECIMAL NUMBERS (1-5:8-10 ETC.) THAT SPECIFY THE TESTS TO BE EXECUTED. 
THE NUMBERS ARE SEPARATED BY COLONS. THE NUMBERS RANGE FROM 1 TO THE 
LARGEST TEST NUMBER IN THE DIAGNOSTIC. THEY MAY BE SPECIFIED IN ANY 
ORDER. TESTS WILL BE EXECUTED IN NUMBERIC AL ORDER REGARDLESS OF THE 
ORDER OF SPECIFICATION. THE DEFAULT IS TO EXECUTE ALL TESTS. 

"PASS-CNT" ISA DECIMAL NUMBER INDICATING THE DESIRED NUMBER OF 
PASSES. A PASS IS DEFINED AS THE EXECUTION OF THE FULL DIAGNOSTIC 
(ALL SELECTED TESTS) AGAINST ALL UNITS SUMBITTED. THE DEFAULT IS 
NON-ENDING EXECUTION. .B "FLAG-LIST" IS A SEQUENCE OF ELEMENTS OF THE 
FORM <FLAG>, <FLAG=1>, OR <FLAG=0>, SEPARATED BY COLONS, WHERE <FLAG> 
HAS ONE OF THE FOLLOWING VALUES: 



ENTERED WHEN AN 



LOOP CONTINUOUSLY 
CODING (SEGMENT, 



HOE HALT ON ERROR, CAUSING COMMAND MODE TO BE 

ERROR IS ENCOUNTERED 
LOE LOOP ON ERROR, CAUSING THE DIAGNOSTIC TO 

WITHIN THE SMALLEST DEFINED BLOCK OF 

SUBTEST, OR TEST) CONTAINING THE ERROR 
IER INHIBIT ERROR REPORTING 

I BE INHIBIT BASIC ERROR REPORTS 

IXE INHIBIT EXTENDED ERROR REPORTS 

PRI DIRECT ALL MESSAGES TO A LINE PRINTER 

PNT PRINT NUMBER OF TES BEING EXECUTED 

BOE BELL ON ERROR 

U AM RUN IN UNATTENDED MODE, BYPASSING MANUAL INTERVENTION TESTS 

ISR INHIBIT STATISTICAL REPORTS 

IDU INHIBIT DROPPING OF UNITS BY DIAGNOSTIC 
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THE FLAGS NAMED OR EQUATED TO 1 ARE SET # THOSE EQUATED TO ARE 
CLEARED. A FLAG NOT SPECIFIED IS CLEARED- IF THE FLAGS SWITCH IS SOT 
GIVEN ALL FLAGS ARE CLEARED. 

"EOP-INCR" IS A DECIMAL NUMBER INDICATING HOW OFTEN (IN TERMS OF 
PASSES) IT IS DESIRED THAT THE END OF PASS MESSAGE BE PRINTED* THE 
DEFAULT IS AT THE END OF EVERY PASS. 

****************************************** 

RES (TART ) /TEST S TEST-LIST /PASS 2 PASS-CNT/FL AGS SFLAG-LIST/EOP 2 EOP-I NCR/UNITS S UNI 

***************************************************************************** 

THE DIAGNOSTIC IN CORE IS EXECUTED IN ACCORDANCE WITH THE SWITCHES 
SPECIFIED. HOWEVER/ NEW P-TABLES ARE NOT BUILT. INSTEAD/ THE ONES IN 
CORE ARE USED. 

THE QUESTION "CHANGE SW?" IS ASKED/ AND THE ANSERS IF GIVEN BECOME THE 
NEW DEFAULTS. THE COMMAND MAY BE ISSUED WHEN COMAND MODE HAS BEEN 
ENTERED VIA A) DIAGNOSTIC IS FINISHED B) HALT ON ERROR C) CONTROL/C. 

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPTS 

1. "UNIT-LIST" IS A SEQUENCE OF LOGICAL UNIT NUMBERS RANGING 
FROM 1 THRU N (N = NUMBER OF UNITS BEING TESTED) SPECIFYING 
WHICH UNITS ARE TO BE TESTED. THE LOGICAL UNIT NUMBER 
DESIGNATES THE POSITION OF THE P-TABLE IN CORE, ACCORDING TO 
THE ORDER IN WHICH THEY WERE BUILT* THE UNITS SPECIFIED MUST 
NOT HAVE BEEN DROPPED BY THE OPERATOR DROP COMMAND. THE 
UNIT-LIST DEFAULTS TO "ALL THAT HAVE NOT BEEN DROPPED BY 
OPERATOR COMMAND". THE EFFECT OF THE UNIT-LIST LASTS UNTIL 
THE NEXT START (WHERE IT IS AUTOMATICALLY RESET TO "ALL") OR 
THE NEXT RESTART. 

2. ALL UNSPECIFIED FLAG SETTINGS ARE UNCHANGED. 



******************************************* 

CON(TINUE)/PASS:<PASS-CNT/FLAGS:<FLAG-LIST> 
**************** *************************** 

COMMAND MODE MUST HAVE BEEN ENTERED DUE TO A HALT ON ERROR OR A 
CONTROL/C. THE EFFECT OF THE COMMAND IS TO GO TO THE BEGINNING OF THE 
TEST THAT WAS BEING EXECUTED WHEN THE HALT OR CONTROL/C TOOK PLACE. 
SOFTWARE DIALOGUE MAY OPTIONALLY BE REEXECUTED. HARDWARE PARAMETERS 
MAY NOT BE CHANGED. 

THE SWITCH ARGUMENTS ARE AS IN THE START COMMAND EXCEPT: 

1. DEFALT FOR PASS-CNT IS THE UNSATISFIED PASS-CNT FROM THE 
PREVIOUS START OR RESTART 

2. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 
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* ************************** 

PRQ( CEED) /FLAGS S<FLAG~LIST> 
*************************** 

COMMAND MODE MUST HAVE BEEN ENTERED VIA A HALT ON ERROR* THE EFFECT 
OF THE COMMAND IS TO BEGIN EXECUTION AT THE LOCATION FOLLOWING THE 
ERROR CALL* NEITHER HARDWARE NOR SOFTWARE PARAMETERS MAY BE ALTERED. 

THE SWITCH ARGUMENTS ARE THE SAME AS THE START COMMAND EXCEPT! 

1. UNSPECIFIED FLAG SETTINGS ARE UNCHANGED 

************************************************************* 

CC I/TEST : TEST-LI ST/PASS : PASS-CNT /FLAGS 2FLAG-LIST/EOP 2 EOP-INCR 
************************************************************* 

THE DIAGNOSTIC EXECUTES THRU ALL OPERATOR DIALOGUE AND HALTS AT THE 
HARDWARE TEST CODE. NOW THE OPERATOR CAN DUMP THE CORE IMAGE TO THE 
MEDIUM WITH A BIC EXTENSION* 

THE BIC FILE MUST BE HANDLED DIFFERENTLY DEPENDING ON WHETHER IT IS 
RUN MANUALLY OR IN CHAIN MODE* IF RUN MANUALLY IT CAN BE INVOKED 
EITHER WITH A "START" (IN WHICH CASE IT WILL BEHAVE LIKE THE BIN FILES 
THE PRE-GENER ATED ANSWERS TO OPERATOR QUESTIONS WILL BE IGNORED) OR 
WITH A "RESTART" (IN WHICH CASE THE PRE-GENER ATED OPERATOR ANSWERS 
WILL BE USED). 

IF RUN IN CHAIN MODE/ AUTOMATIC EXECUTION WILL COMMENCE IMMEDIATELY 
FROM THE XXDP COMMAND ".R DIAG". THE COMMAND PROMPT "DS-B>" MILL NOT 
BE ISSUED, 

ANY SWITCHES SPECIFIED ON THE CC I COMMAND WILL CARRY OVER WHEN THE BIC 
FILE IS RUN IN CHAIN KODE (EXCEPT THAT UAM IS ALWAYS SET THERE) BUT 
WILL NOT CARRY OVER WHEN IT IS RUN MANUALLY. 

TO DO A CCI ON A FULL SIZED DIAGNOSTIC (14. 5K WORDS), A MACHINE SIZE 
LARGER THAN 16K IS REQUIRED. THE EXACT SIZE NEEDED DEPENDS ON WHICH 
UTILITY IS USED TO EXECUTE THE DIAGNOSTIC AT CCI TIME. 

********************** 

DRO( P) /UN IT St UNIT-LIST 
********************** 

THE UNITS SPECIFIED ARE DROPPED FROM TESTING UNTIL THEY ARE ADDED BACK 
OR UNTIL A START COMMAND IS GIVEN. A DROP CANNOT BE FOLLOWED BY A 
PROCEED. 

THERE IS ALSO A "DROP" MACRO INTERNAL TO THE DIAGNOSTIC* WHICH GIVES 
THE FACILITY OF AUTO-DROPPING. THE DURATION OF A PROGRAM DROP, 
HOWEVER, IS ONLY UNTIL THE NEXT START OR RESTART. 
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******************* 

ADD/UNITS 2 UNIT-LIST 
******************* 

THE UNITS SPECIFIED ARE ADDED BACK (THEY MUST HAVE BEEN PREVIOUSLY 
DROPPED BY THE DROP COMMAND) TO THE TEST SEQUENCE. AN ADD CANNOT BE 
FOLLOWED BY A PROCEED, 

******* 

PRI(NT) 

******* 

ALL STATISTICS TABLES ACCUMULATED BY THE DIAGNOSTIC ARE PRINTED* THE 
ISR (INHIBIT STATISTICAL REPORTING) FLAG IS CLEARED. 

*************************** 

DI S( PLAY) /UNITS :<UNIT-LIST> 

*************************** 

THE HARDWARE P-TABLES FOR ALL UNITS UNDER TEST ARE PRINTED OUT IN THE 
FORMAT IN WHICH THEY WERE ENTERED. ANY UNITS THAT HERE DROPPED BY THE 
OPERATOR "DROP" COMMAND ARE SO DESIGNATED* 

******* 

FLA(GS) 

******* 

THE CURRENT SETTINGS OF ALL FLAGS ARE PRINTED. 

******** 

ZFL(AGS) 
******** 

ALL FLAGS ARE CLEARED. 



2.4 EXTENDED P-T ABLE DIALOGUE 

THE FULL CAPABILITY OF THE HARDWARE DIALOGUE IS REVEALED BY THE 
FOLLOWING DISCUSSION OF WHAT HAPPENS INTERNALLY. 

AS SOON AS THE QUESTION "# UNITS?" IS ANSWERED (WITH THE NUMBER N, 
SAY) SPACE IN CORE IS ALLOCATED FOR N P-TABLES. ALL OF THE P-TABLES 
ARE OF THE SAME FORMAT. AND THERE IS A ONE-TO-ONE CORRESPONDENCE 
BETWEEN THE HARDWARE PARAMETER QUESTIONS AND THE SLOTS IN THE P-T ABLE 
FORMAT. 



Page 16 



ON THE FIRST TRIP THRU THE QUESTIONS, ALL OF THE SLOTS IN ALL OF THE 
P-TABLES ARE FILLED. IF THE OPERATOR TYPES IN LESS THAU N EXPLICIT 
VALUES IN RESPONSE TO A PARTICULAR QUESTION £ THESE VALUES IRE PLACED 
IN THE P-TABLES (ONE VALUE GOING INTO THE PROPER SLOT OF EACH P-TABLE 
BEGINNING WITH THE FIRST P-TABLE) UNTIL THE STRING OF VALUES IS 
EXHAUSTED. THE LAST VALUE THAT SLOT IN THE REMAINING P-TABLES* 

ON SUBSEQUENT TRIPS THRU THE QUESTIONS, THE SANE PROCESS IS CARRIED 

OUT, EXCEPT THAT THE EARLIEST P-TABLE NOT TO HAVE RECEIVED AN EXPLICIT 

VALUE IN 1 ANY OF ITS SLOTS NOW ASSUMES THE ROLE THAT TABLE NUMBER ONE 
PLAYED IN THE FIRST TRIP® 



THE SERIES OF QUESTIONS IS REISSUED UNTIL AT LEAST 
RECEIVED N EXPLICIT VALUES FROM THE OPERATOR * 



ONE QUESTION HAS 



IN GIVING A STRING OF VALUES, COMMAS WITHOUT INTERVENING VALUES MAY BE 
USED TO INDICATE A REPETITION OF THE LAST NAKED VALUE. 



A STRING OF VALUES HAY BE GIVEN AS A RANGE (6-10 FOR EXAMPLE )* IF THE 
VALUES, REPRESENT PURE NUMERICAL DATA, THIS SAMPLE RANGE TRANLATES TO 



THE STRING 6,7,8,9,10 (AN INCREMENT OF 1). 
ADDRESSES, THE SAMPLE RANGE TRANSLATES TO 
INCREMENT OF 2). 

NOW LET US SEE HOW WE COULD USE THESE CAPABILITIES TO 
OF P-TABLES • ASSUME THAT ME HAVE 64 UNITS, AND THA 
HARDWARE PARAMETERS FOR EACH (THREE SLOTS IN THE 
HARDWARE QUESTIONS IN THE DIALOGUE). LET THE DESI 
FIRST PARAMETER BE THE NUMBER 75 FOR ALL 64 TABLES. 
VALUE FOR THE SECOND PARAMETER BE EQUAL TO 
(1*2,3, 64) EXCEPT FOP UNIT 50, WHICH SOULD RECEIV 
LET THE DESIRED VALUE FOR THE THIRD PARAMETER BE THE 
FIRST 20 UNITS AND THE NUMBER 77 FOR THE LAST 44 UNIT 

THE FOLLOWING DIALOGUE WOULD ACCOMPLISH THIS GOAL t 

# UNITS (D) ? 64 

UNIT 1 

<QUESTION 1> ? 75 
<QUESTION 2> ? 1-20 
<QUESTION 3> ? 76 

UNIT 21 

<QUEST ION 1> ? 

<QUESTION 2> ? 21-49, ,51-64 

<QUESTION 3> ? 77 



IF THE VALUES ARE 
THE STRING 6,8,10 (AN 



CONSTRUCT A SET 
T THERE ARE THREE 
P-TABLE, THREE 
RED VALUE FOR THE 
LET THE DESIRED 
THE UNIT NUMBER 
E THE VALUE 49. 
NUMBER 76 FOR THE 
S* 
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THE FIRST TIME THE SERIES IS ASKED, SLOT ONE RECEIVES A 75 Iff ILL 64 
TABLES* SLOT TWO RECEIVES THE VALUES 1,2,3, «» 20 IN TABLES 1 THRU 20 
AMD A CONSTANT 20 IN TABLES 21 THRU 64* SLOT THREE RECEIVES A 
CONSTANT 76 IN ALL 64 TABLES. 

THE SECOND TIME THRU THE SERIES, TABLES 21 THRU THE END ARE GOING TO 
BE AFFECTED (NOTE THAT THIS PIECE OF INFORMATION IS PRINTED OUT FOR 
THE OPERATOR IN THE FORM "UNIT XX 88 AT THE BEGINNING OF EACH SERIES )* 
QUESTION 1 IS RESPONDED TO BY A <CR>, SO SLOT ONE STAYS A CONSTANT 75 
IN TABLES 21 THRU 64, SINCE NO NEW EXLICIT VALUES ARE TYPED IN. SLOT 
TWO GETS THE VALUES 21,22, 23, .,49 IN TABLES 21 THRU 49 £ AND GETS A 
49 IN SLOT 50, AND GETS THE VALUES 51,52,53, ,.64 IN TABLES 51 THRU 
64. SLOT THREE GETS THE VALUE 77 IN TABLES 21 THRU 64. 

THE DIALOGUE IS TERMINATED WHEN THE SOFTWARE RECOGNIZES THAT 64 
EXPLICIT VALUES HAVE BEEN GIVEN FOR AT LEAST ON QUESTION (NAMELY 
QUESTION 2). 

2.5 HARDWARE PARAMETERS 

THE FOLLOWING QUESTIONS WILL BE ASKED ON A START COMMAND. THE VALUE 
LOCATED TO THE LEFT OF THE QUESTION MARK IS THE DEFAULT VALUE THAT 
WILL BE TAKEN ON A CARRIAGE RETURN RESPONCE. 

RL11 (L) Y? 

ANSWER YES(Y) IF YOU HAVE AN RL11 CONTROLLER, NO(N) IF YOU HAVE AN 
RLV11 CONTROLLER. 

BUS ADDRESS (0) 174400? 

ANSWER WITH THE BUS ADDRESS OF THE CONTROLLER. 
VECTOR (0) 330? 

ANSWER WITH THE INTERRUPT VECTOR OF THE CONTROLLER. 

BR LEVEL (0) 5? 

ANSWER WITH THE INTERRUPT PRIORITY OF THE CONTROLLER. 
DRIVE (0) 0? 

ANSWER WITH THE DRIVE(S) CONNECTED TO THE CONTROLLER. 

2.6 SOFTWARE PARAMETERS 

THE FOLLOWING QUESTIONS ARE ASKED IF REQUESTED ON A START, RESTART, OR 
CONTINUE. THEY ALLOW FLEXABILITY IN THE WAY THE PROGRAM BEHAVES. THE 
SOFTWARE PARAMETERS GIVE THE PROGRAM FLEXIBILITY IN THE WAY IT RUNS. 
THE PARAMETERS CAN BE MODIFIED ON A START, RESTART, OR CONTINUE BY 
ANSWERING (Y)ES TO THE FOLLOWING QUESTION: 




seq mil 



9 
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CHANGE S.W. 



? 



A YES ANSWER MILL ASK THE FOLLOWING SOFTWARE PARAMETER QUESTIONS, WITH 
THE PRESENT DEFAULT VALUE PRINTED TO THE LEFT OF THE QUESTION MARK* 



TEST- 
DROP ON ERROR LIMIT (L) Y? 

TO ALLOW THE UNIT TO BE DROPPED ONCE A PREDETERMINED NUMBER OF ERRORS 
ARE ENCOUNTERED. 

ANSWER Y OR N 

ERROR LIMIT (D) 10? 

NUMBER OF ERRORS ALLOWED BEFORE DROPPING UNIT* 

ANSWER 1 TO 65K 
AUTOSIZE (L) N? 

TO CHECK TO SEE IF UNIT SPECIFIED ACTUALLY EXISTS BEFORE TESTING IT 
(VIA DRIVE READY ), IF NOT UNIT WILL NOT BE TESTED* 

ANSWER Y OR N 

COMPARE DATA ON DCK (L) M? 

WHEN A DATA CHECK IS ENCOUNTERED AND DATA IS KNOWN, ALLOW AN INCORE 
COMPARISON OF DATA. 

ANSWER Y OR N 

# OF WORDS IN ERROR REPORTED (D) 3? 

NUMBER OF MISCOMPARES TO BE PRINTED ON CONSOLE DEVICE* 
ANSWER - 128 

3.0 ERROR INFORMATION 

ALL ERROR INFORMATION IS PRINTED ON THE CONSOLE DECIVE. ERROR REPORTS 
ARE AIMED AT BEING SELF EXPLANATORY. THE GENERAL FORMAT IS: 




DZRL? XXX 



ERR YYYYY 



TST 



ZZZ 



SUB 



PPP 



RRRRRR 



WHERE t 



XXX 



IS PROGRAM LETTER 
IS SET - SOFT ERROR 
HRD - HARD ERROR 
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DV FAT - DEVICE FATAL ERROR 
SYS FAT - SYSTEM FATAL ERROR 
YYYYY IS THE ERROR NUMBER 
ZZZ IS THE TEST NUMBER 

PPP IS THE SUBTEST NUMBER 

RRRRRR IS THE PROGRAM LISTING LOCATION 

ERRORS GIVE THE REGISTER CONTENTS BEFORE AND AFTER THE ERROR 
ALONG WITH A ONE LINE DESCRIPTION AND RELEVENT DATA. 

EXAMPLES 

ONE LINE DESCRIPTION 
(OPTIONAL SECOND LINE) 
(OPTIONAL THIRD LINE) 

BEFORE COMMANDS CSSXXXXXX BASXXXXXX DASXXXXXX MPSXXXXXX 

TIME OF ERRORS CSSXXXXXX BASXXXXXX DASXXXXXX MPSXXXXXX XXXXXX XXXXXX 

3.2 ERROR HALTS 

ERROR HALTS ARE SUPPORTED PER DESCRIBED IN THE PREVIOUS SECTION WITH 
/FLAGS HOE, THERE ARE NO OTHER HALTS. 

4.0 PERFORMANCE AND PROGRESS REPORTS 

4.1 PERFORMANCE REPORTS 

THIS PROGRAM WILL NOT GIVE ANY PERFORMANCE REPORTS. 

4.2 PROGRESS REPORTS 

THIS PROGRAM WILL NOT GIVE ANY PROGRESS REPORTS. 
5.0 DEVICE INFORMATION TABLES 

THE RL11/RLV11 CONTROLLER HAS THE FOLLOWING FOUR(4) REGISTERS FOR 
CONTROL OF THE SUBSYSTEM. 

RLCS - CONTROL AND STATUS REGISTER (XXXXXO) 

BIT 15 - COMPOSITE ERROR 

BIT 14 - DRIVE ERROR 

BIT 13 - HON EXISTANT MEMORY ERROR 

BIT 12 - HEADER NOT FOUND (WITH BIT 10 SET) 

- DATA LATE (WITH BIT 10 CLEAR) 
BIT 11 - HEADER CRC (WITH BIT 10 SET) 

- DATA CRC (WITH BIT 10 CLEAR) 
BIT 10 - OPERATION INCOMPLETE 

BIT 9/8 - DRIVE SELECT (0-3) 



BIT 7 - CONTROLLER READY 

BIT 6 - INTERRUPT ENABLE 

BIT 5 - EXTENDED BUS ADDRESS (BIT 17) 

BIT 4 - EXTENDED BUS ADDRESS (BIT 16) 

BIT 3-1 - FUNCTION CODE 

- NOP (PDP-11) MAINT (LSI-11) 

1 - WRITE CHECK 

2 - GET DRIVE STATUS 

3 - SEEK 

4 - READ HEADER 

5 - WRITE DATA 

6 - READ DATA 

7 - READ WITHOUT HEADER COMPARE 
BIT - DRIVE READY 

RLBA - BUS ADDRESS REGISTER (XXXXX2) 

BITS 15-1 BUS ADDRESS OF DATA TRANSFER 
BIT SHOULD BE 

RLDA - DISK ADDRESS REGISTER (XXXXX4) 
FOR READ/WRITE FUNCTIONS 



BIT 15 - MUST BE ZERO(O) 

BIT 14-7 - CYLINDER ADDRESS FOR TRANSFER 

BIT 6 - SURFACE FOR TRANSFER 

BIT 5-0 - SECTOR FOR TRANSFER (0-47) 

FOR SEEK FUNCTION 



BIT 15 - MUST BE ZERO(O) 

BIT 14-7 - DIFFERENCE TO NEW CYLINDER 

BIT 6-5 - MUST BE ZERO(O) 

BIT 4 - SURFACE 

BIT 3 - MUST BF ZERO 

BIT 2 - SEEK DIRECTION( 1 - IN / - OUT 
BIT 1 - MUST BE ZERO 
BIT - MUST BE ONE(l) 

FOR GET STATUS FUNCTION 



BIT 15-4 - IGNORED SHOULD BE ZERO 
BIT 3 - DRIVE RESET 
BIT 2 - MUST BE ZERO 
BIT 1 - MUST BE ONE 
BIT - MUST BE ONE 
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RLMP - MULTIPURPOSE REGISTER 



FOR READ/WRITE FUNCTION 

BIT 15 - - WORD COUNT(TWQ*S COMPLIMENT) 
FOR READ HEADER FUNCTION 



BIT 15-0 - DISK HEADER OF SECTOR (FIRST READ) 

- ZERO WORD (SECOND READ) 

- HEADER CRC (THIRD READ) 



FOR GET STATUS FUNCTION 



HAS DRIVE STATUS 



BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 
BIT 



WRITE DATA ERROR 

CURRENT HEAD ERROR(CHE) 

WRITE LOCK STATUSCWL) 

SEEK TIME OUT(SKTO) 

SPIN ERROR(SPE) 

WRITE GATE ERROR(WGE) 

VOLUME CHECK(VC) 
« _ 7 g £ 



DRIVE SELECT ERROR(DSE) 
RESERVED(O) 
SURFACE 
COVER OPEN 
HEADS HOME 
BRUSHES HOME 
2-0 -STATE BTTS 

- LOftD STATE 

1 - SPIN UP 

2 - BRUSH CYCLE 

3 - LOAD HEADS 

4 - SEEK - TRACK COUNTING 

5 - SEEK - LINEAR MODE 

6 - UNLOAD HEADS 

7 - SPIN DOWN 



6.0 TEST SUMMARIES 

TEST 01 - WRITE NPR INTEGRITY 

THIS TEST WILL VERIFY THAT THE WRITE FUNCTION 
A BUS TRAP THEREFORE VERIFYING THE NPR LOGIC 
CONTROLLER AND PROCESSOR. 



TEST 02 - 



WRITE FUNCTION 
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NOT CAUSE 
EN THE 
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THIS TEST WILL VERIFY THAT THE WRITE FUNCTION WILL RESET 
CONTROLLER READY AND POST NO ERRORS* 

TEST 03 - WRITE FUNCTION INTERRUPT 

THIS TEST WILL VERIFY THAT THE WRITE FUNCTION WILL GENERATE 
AN INTERRUPT ON COMPLETION, 

TEST 04 - PROPER INCREMENT OF RLBA ON WRITE 

THIS TEST WILL VERIFY THAT THE BUS ADDRESS REGISTER INCREMENTS 
PROPERLY ON A WRITE FUNCTION* 

TEST 05 - PROPER INCREMENT OF RLDA ON WRITE 

THIS TEST WILL VERIFY THAT THE DISK ADDRESS REGISTER INCREMENTS 
PROPERLY ON A WRITE FUNCTION, 

TEST 06 - FORCE HEADER NOT FOUND WITH WRITE 

THIS TEST WILL FORCE A HEADER NOT FOUND ERROR ON A WRITE. THE 
RLDA IS SET UP TO LOOK FOR SECTOR 40, A WRITE IS THEN ISSUED* 
THE HEADER NOT FOUND ERROR SHOULD THEN SET. 

TEST 07 - FORCE INTERRUPT WITH HNF 

THIS TEST WILL FORCE A HEADER NOT FOUND ERROR UNDER INTERRUPT 
CONTROL • 

TEST 08 - CHECK OPI TIME WITH HNF 

THIS TEST WILL TIME THE SETTING OF HNF (OPI) FROM ISSUANCE. 
THIS IS DONE BY ISSUING A WRITE TO SECTOR 40. THE TIME OF OPI 
SHOULD EE AROUND 200 MILLISECONDS* 

TEST 09 - MULTIPLE SECTOR TRANSFER ON WRITE 

THIS TEST THE ABILITY FOR THE WRITE FUNCTION TO WRITE MORE THAN 
ONE SECTOR. WE SET UP FOR A TWO SECTOR WRITE. 

TEST 10 - CHECK DIRECTION OF WRITE NPR 

THIS TEST WILL VERIFY THAT THE NPR DIRECTION OF A WRITE FUNC- 
TION IS FROM MEMORY TO THE CONTROLLER. THIS IS DONE BY 
WRITING A PATTERN IN MEMORY AND ISSUING A WRITE, THEN CHECKING 
MEMORY TO VERIFY THAT IT DID NOT GET DISTURBED. 
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TEST 11 - CHECK FULL INCREMENT OF RLBA 

THIS TEST MILL CHECK THAT THE RLBA CAN INCREMENT OF THE FULL 
16 BIT RANGE. THIS IS DONE BY ISSUING A ONE WORD WRITE TO 
CHECK EACH BIT TOGGLE FROM 1-0 AND 0-1. THIS IS DONE FROM 
TO 177776 REGARDLESS OF MEMORY SIZE. 

TEST 12 - BA BIT 16 INCREMENT 

THIS TEST WILL CHECK THAT BUS ADDRESS BIT 16 WILL SET WHEN THE 
RLBA IS 177776. AND THAT THE RLBA GOES TO 0. 

TEST 13 - BA BIT 17 INCREMENT 

THIS TEST WILL CHECK THAT BUS ADDRESS BIT 17 WILL SET WHEN 
BIT 16 AND THE RLBA ARE SET. THE RLBA AND BIT 16 ARE CHECKED 
TO GO TO ZERO. 

TEST 14 - READ NPR INTEGRITY 

THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL NOT CAUSE 
A BUS TRAP THEREFORE VERIFYING THE NPR LOGIC BETWEEN THE 
CONTROLLER AND PROCESSOR. 

TEST 15 - READ FUNCTION 

THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL RESET 
CONTROLLER READY AND POST NO ERRORS. 

TEST 16 - READ FUNCTION INTERRUPT 

THIS TEST WILL VERIFY THAT THE READ FUNCTION WILL GENERATE 
AN INTERRUPT ON COMPLETION. 

TEST 17 - CHECK DIRECTION OF READ NPR 

THIS TEST WILL VERIFY THAT THE NPR DIRECTION OF A READ FUNC- 
TION IS FROM CONTROLLER TO THE MEMORY. THIS IS DONE BY 
WRITING A PATTERN IN MEMORY AND ISSUING A READ, THEN CHECKING 
MEMORY TO VERIFY THAT IT DID NOT GET DISTURBED. 

TEST 18 - PROPER INCREMENT OF RLBA ON READ 

THIS TEST WILL VERIFY THAT THE BUS ADDRESS REGISTER INCREMENTS 
PROPERLY ON h READ FUNCTION. 
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TEST 19 - PROPER INCREMENT OF RLDA ON READ 

THIS TEST WILL VERIFY THAT THE DISK ADDRESS REGISTER INCREMENTS 
PROPERLY ON A READ FUNCTION* 

TEST 20 - FORCE HEADER NOT FOUND WITH READ 

THIS TEST WILL FORCE A HEADER NOT FOUND ERROR ON A READ* THE 
RLDA IS SET UP TG LOOK FOR SECTOR 40* A READ IS THEN ISSUED* 
THE HEADER NOT FOUND ERROR SHOULD THEN SET* 

TEST 21 - FORCE INTERRUPT WITH HNF 

THIS TEST WILL FORCE A HEADER NOT FOUND ERROR UNDER INTERRUPT 
CONTROL* 

TEST 22 - CHECK HEADER COMPARE LOGIC 

THIS TEST WILL EXTENSIVELY CHECK THE CYLINDER AND HEAD BITS OF 
THE HEADER WORD TO COMPARE CORRECTLY. THIS IS DONE BY WALKING 
AND GROWING 0*S AND l'S THRU THE PROPER RLDA BITS AND ISSUING 
3 F A D TO SEE IF ALL BIT POSITIONS CAN COMPARE* 

TEST 23 - MULTIPLE SECTOR TRANSFER ON READ 

THIS TEST THE ABILITY FOR THE READ FUNCTION TO WRITE MORE THAN 
ONE SECTOR* WF SET UP FOR A TWO SECTOR READ* 

TEST 24 - FORCE HNF AT END OF TRACK 

THIS TEST WILL CHECK THE ABILITY TO DETECT HEADER NOT FOUND 

4T THE END OF A TRACK. THIS DONE BY SETTING UP FOR A TWO 
SECTOR READ AT SECTOR 39* 

TEST 25 - FORCE NON-EXISTANT MEMORY ERROR 

THIS TEST WILL CHECK THAT THE NON-EXISTANT MEMORY ERROR (NXM) 
CAN SET* WE WILL ISSUE A READ TO THE MAXIMUM ADDRESS AND 
EXPECT A NXM ERROR* (THIS TEST WILL NOT BE DONE ON A 128K 
MACHINE* ) 

TEST 26 - FORCE NXM UNDER INTERRUPT 

THIS TEST WILL ATTEMPT TO FORCE AN INTERRUPT VIA NXM* (THIS 
TEST WILL NOT BE DONE ON A 128K MACHINE. ) 

TEST 27 - CHECK READ WRITE LOOP 
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THIS TEST WILL WRITE A PATTERN TO SECTOR AND TRY TO RECOVER 
IT WITH A WRITE* 

TEST 29 - CHECK OF SILO LINES 

THIS TEST WILL CHECK THAT WE CAN WRITE AND READ UNIQUE BIT 
PATTERN'S VERIFY THAT THE LINES ON THE SILO ARE NOT STUCK OR 
TIED TOGETHER. THIS IS DONE WITH WALKING AND GROWING 0*S AND 
l'S. 

TEST 2 9 - CHECK THROUGHPUT OF SILO 

THIS TEST WILL ATT EM? T TO CHECK THAT THE FALL THROUGH OF THE 
SILO IS WORKING CORRECTLY. WE WRITE A SECTOR OF 129 UNIQUE 
PATTERNS AND REAL TT BACK CHECKING THAT EACH LOCATION IS UNIQUE 
AND CORRECT. 

TEST 30 - CHECK ZERO FILL ON WRITE 

THIS TEST WILL CHECK THE ABILITY OF THE CONTROLLER TO FILL THE 
^E^AINING SECTOR WITH ZEROS ON A WRITE. WE WRITE A SECTOR WITH 
FROM 1 TO 127 WORDS, READ IT BACK AND VERIFY THAT THE NCN 
WRITTEN WORDS ARE ZtRO. 

TEST 3 1 - CHECK SECTOR B ITS ON HEADER COMPARE 

THIS TEST WILL CHECK THAT THE SECTOR BITS CAN COMPARE CORRECTLY. 
THIS IS DONE BY WRITING THE SECTORS ADDRESS INTO THE SECTOR 
FOR A FULL TRACK . EACH SECTOR IS READ TO VERIFY THE SECTOR HAS 
THE CORRECT DATA, IF NOT THEN THE SECTOR BITS ARE NOT COMPARING 
CORRECTLY* 

TEST 32 - WRITE CHECK NPP INTEGRITY 

THIS TEST WILL CHECK THAT THE WRITE CHECK WILL FUNCTION WITHOUT 
CAUSING A PUS TRAP. TEST IS SET UP TO HANDLE BUS TRAPS. 

TEST 33 - WRITE CHECK FUNCTION 

THIS TEST WILL CHECK THAT A WRITE CHECK FUNCTION WILL COMPLETE 
WITH THE SPECIFIED TIME WITHOUT POSTING ERRORS. 

TEST 3* - WRITE CHECK FUNCTION INTERRUPT 

THIS TFST WILL CHECK THAT AN INTERRUPT CAN BE GENERATED FROM 
ISSUING A WRITE CHECK • 

TEST 35 - PROPER TNCPEVENT OF REM ON WRITE CHECK 

THIS TEST WILL CHECK THAT THE RLRA INCREMENTS PROPERLY DURING A 
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WRITE CHECK. 

TEST 36 - PROPER INCREMENT OF RLDA ON WRITE CHECK 

THIS TEST WILL CHECK THAT THE RLDA INCREMENTS PROPERLY DURING A 

WRITE CHECK . 

TEST 37 - MULTIPLE SECTOR WRITE CHECK 

THIS TEST WILL CHECK THAT WE CAN WRITE CHECK MORE THAN ONE SECTOR 
AT A TIME. 

TEST 38 - FORCE DCK WITH WRITE CHECK 

THIS TEST WILL CHECK THAT WE CAN DETECT A DCK DURING A WRITE 
CHECK . THIS IS DONE BY MODIFYING MEMORY BETWEEN A WRITE AND A 
WRITE CHECK. 

TEST 39 - FORCE DCK WITH WRITE CHECK INTERRUPT 

THIS TEST WILL CHECK THAT A DCK DURING A WRITE CHECK WILL CAUSE 
AN INTERRUPT TO OCCUR. 

TEST 40 - CHECK ZERO FILL ON WRITE WITH WRITE CHECK 

THIS TEST WILL VERIFY THAT WE CAN SUCCESSFULLY WRITE CHECK ALL 
WORD COUNTS FROM 1 - 127. 

TEST 41 - 42 - EXTENDED CHECK OF WRITE CHECK 

THESE TESTS VERIFY THAT WE CAN WRITE CHECK SUCCESSFULLY ALL PAT- 
TERNS. PATTERNS USED ARE WALKING l'S, 0*S, GROWING 1 'S, 0*S. 

TEST 43 - READ WITHOUT HEADER COMPARE 

THIS TEST VERIFIES THAT THE FUNCTION READ WITHOUT HEADER COMPARE 
(7) RESETS THE CONTROLLER READY AND POSTS NO ERRORS. THE DISK 
ADDRESS IS SET TO ALL ONES. 

TEST 44 - READ WITHOUT HEADER COMPARE INTERRUPT 

THIS TEST WILL VERIFY THAT THE FUNCTION READ WITHOUT HEADER 
COMPARE (7) CAN GENERATE AM INTERRUPT GN COMPLETION. 

TEST 4? - CHECK RD W/O HDR CMP READS 

THIS TEST CHECKS THAT THE FUNCTION CAN ACTUALLY RECOVER DATA. 
WE WRITE A PATTERN IN MEMORY AND CHECK THAT THE FUNCTION CAN 
OVERLAY IT WITH DATA. 

TEST 46 - CHECK RLBA INCREMENT WITH RD W/O HDP CMP 
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THIS TEST CHECKS THAT THE PLBA CAN INCREMENT PROPERLY ON THE 
FUNCTION. 

TEST 47 - CHECK RLDA DOES INCREMENT 

THIS TEST CHECKS THAT THE RLDA DOES INCREMENT WITH THE 
FUNCTION READ WITHOUT HEADER COMPARE. 
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1 .El&BLE hMk 

2 « ENABLE ABS 

3 «I1LIST ME,CND,MD 



002000 



1 



026 



uuuu 

III! 



00000 



060 00000 



066 000 x 
070 0021 



SfC 

S?C11IS=0 
SVCTAGzO 



POUTER BGHSW,BGIISf?,§Gf!DU 
HDHEDR 



RLB,B,0,60,60,4,RL01 



»&SClf 
-ASCII 
.BYTE 

• BYTE 
-BYTE 
-ASCII 

. ASCII 

• WORD 

.WORD 
. WORD 
. WORD 
»WQRD 
.WORD 
-WORD 
.MORD 
.WORD 

• WORD 

:hkb 

»MORD 
.WORD 
.WORD 

• BYTE 
.BYTE 

.WORD 
.WORD 

.WORD 
.WORD 

. WORD 
» WORD 
» WORD 

• WORD 
. MORD 
.WORD 



m 



/B/ 
10/ 



LSHARD 

LSSOFT 

LSHW 

LSSW 

LSLAST 



LSDISPATCH 



CSREVISION 
CSEDIT 

60 

60 







LSDVTYP 



LSDR 
LSDRST 
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000000 
000002 
000004 
000006 
000010 



• MORD 
. WORD 
.WORD 
.WORD 

« WORD 

ENDMOD 



LSINIT 
L$CLEAN 



DEVREG 
.WORD 
. BLKW 

DEVTYP <RL01> 

.ASCIZ /RL01/ 

• EVEN 
BGNMOD GLBEQAT 

EQUALS 
DRDY=BIT0 
INTEN=BIT6 
ERR=BIT15 
DERR=BIT14 
OPI=BIT10 
CRDY=BIT7 
BA17=BIT5 
BA16=BIT4 
NXM=BIT13 
DS0=0 
DS1=BIT8 
DS2=BIT9 
DS3=BIT8!BIT9 
NOOP0=0 
HRCHK=BIT1 
GSTAT=BIT2 
SEEK=BIT2IBIT1 
RDHDR=BIT3 
WRITE=BIT3IBIT1 
READ=BIT3 JBIT2 
RDNHD=BIT3 IBIT2IBIT1 
GODRVR=BITlf BIT7 
DRST=BIT3 
GSBIT=BIT1 
MK=BIT0 
SIGN=BIT2 
RHHS=BIT6 
STHS=BIT6 
DAHS=BIT4 

;OFFSET FOR HARDWARE P- 

C3R=0 

VECT=2 

PRIQR=4 

DRBT=6 

CMT=10 



/OFFSET FOR SOFTWARE P-T ABLE 




(RLCS 



;DRIVE READY (RLCS) 
/INTERRUPT ENABLE (RLCS) 
;RL11 ERROR (RLCS) 
;RL01 DRIVE ERROR (RLCS) 
;OPERATIQN INCOMPLETE (RLCS) 
/CONTROLLER READY (RLCS) 
; EXTENDED ADDRESS BIT J 7 
;EXTENDED ADDRESS BIT 
;NON-EXISTANT MEMORY ' 

;DRIVE SELECT " 

;DRIVE SELECT 
;DRIVE SELECT 

;drive select , 
;function-noop( 

;WRITE CHECK FU..^ 
;GET STATUS FUNCf 

/seek function 
;read header function 
;write data function 
/read data function 
;read w/o header verification 
;crdy and drdy 
;drive reset (rlda) 
/get status bit (rlda) 
;marker bit (rlda) 
;sign bit (rlda) 
;head select in read header 
/head select in status back 
;head select in seek 

TABLE 



TION 

ION 
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88 

m 
m 

757 
819 
1056 
1107 
1163 

P 

1291 

\m 
W 

1670 

176? 
1803 

nn 

1945 

m 

2075 
2206 
2265 

\m 

2574 
2670 

m 

2970 
3035 
3106 

m 9 2 

3338 
3411 
3495 
3572 
3653 
3734 
3764 
3800 

3381 



BuFFEl 
GLOBAL 
GLOBAL 
INITIAL 
GLOBAL 
ROUTINE 
LOAD RLCS 

**TEST 
♦♦TEST 
**TEST 
**TEST 
♦♦TEST 
♦♦TEST 
♦♦TEST 
**TEST 
♦♦TEST 
♦*TEST 
♦♦TEST 
**TEST 
**TEST 
**TEST 
**TEST 
**TEST 
♦♦TEST 
ST 



GLOBAL DATA 

~ CHECK HEADER COMPARE LOGIC 

FOR READ/WRITE 
TEXT 



LIST TO 
BUFFER " 



ERRORS 

IZATION CODE 
SUBROUTINES 
TO CHECK FOR CONTROLLER ERRORS 

** - WRITE NPR INTEGRETY 
** - WRITE FUNCTION 
** - WRITE FUNCTION INTERRUPT 
** - PROPER INCREMENT OF RLBA ON WRITE 
** - PROPER INCREMENT OF RLDA ON WRITE 
** - FORCE HEADER NOT FOUND WITH WRITE 
** - FORCE HEADER NOT FOUND WITH WRITE INTERRUPT 
** - CHECK OP I TIME WITH HDR NT FND 
** - MULTIPLE SECTOR TRANSFER ON WRITE 
0** - CHECK DIRECTION OF WRITE NPR 
I** - CHECK FULL RLBA INCREMENT 
2** - BA BIT 16 INCREMENT 
3** - BA BIT 17 INCREMENT 
4** - TEST READ NPR INTEGRITY 
5** - READ FUNCTION 
6** - READ FUNCTION INTERRUPT 
J** - CHECK READ NPR DIRECTION 
*TEST 18** - PROPER INCREMENT OF RLBA ON READ 
*TEST 19** - PROPER INCREMENT OF RLDA ON READ 
**TEST 20** - FORCE HEADER NOT FOUND WITH READ 
**TEST 21** - FORCE HEADER NOT FOUND WITH READ INTERRUPT 
**TEST 22** - CHECK HEADER COMPARE LOGIC 
♦♦TEST 23** - CHECK MULTIPE SECTORS ON READ 
**TEST 24** - FORCE HDR NT FND AT END OF TRACK 
**TEST 25** - FORCE NON-EXISTANT MEMORY ERROR 
**TEST 26** - FORCE NON-EXISTANT MEMORY ERROR INTERRUPT 
♦♦TEST 27** - CHECK READ WRITE LOOP 
**TEST 28** - CHECK SILO LINES 
♦♦TEST 29** - CHECK THROUGHPUT OF SILO 
**TEST 30** - CHECK ZERO FILL ON WRITE 
**TEST 31** - CHECK SECTOR BITS OF HEADER COMPARE 
**TEST 32** - WRITE CHECK NPR INTEGRETY 
♦♦TEST 33** - WRITE CHECK FUNCTION 
**TEST 34** - WRITE CHECK FUNCTION INTERRUPT 
♦♦TEST 35** - PROPER INCREMENT OF RLBA ON WRITE CHECK 
♦♦TEST 36** - PROPER INCREMENT OF RLDA ON WRITE CHECK 
♦♦TEST 37** - MULTIPLE SECTOR WRITE CHECK 
♦♦TEST 38** - FORCE DCK WITH WRITE CHECK 
♦♦TEST 39** - FORCE DCK WITH WRITE CHECK INTERRUPT 
♦♦TEST 40** - CHECK ZERO FILL ON WRITE WITH WRITE CHECK 
♦♦TEST 41** - EXTENDED CHECK OF WRITE CHECK FUNCTION 
♦♦TEST 42** - EXTENDED CHECK OF WRITE CHECK FUNCTION 
♦♦TEST 43 ft * - READ WITHOUT HEADER COMPARE FUNCTION 
**TEST 44** - READ WITHOUT HEADER COMPARE FUNCTION INTERRUPT 
**TEST 45** - CHECK RD W/O HDR CMP ACTUALLY READS 
**TEST 46** - CHECK RLBA INCREMENT WITH RD W/O HDR CMP 
♦♦TEST 47 ft * - CHECK RLDA DOES INCREMENT WITH RD W/O HDR CMP 
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4015 DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 



ASSEMBLY ROUTINES 
CZRLBB.P11 22-MO¥-78 

■ it 



MACYll 30AQ052) 
15:28 



22-NOV-78 15:35 PAGE 1-2 



mm 



nn 

0010 



16 00 



000000 



000000 
000000 



mi 
s D i *mu 

DLMf=10 



ENDMOD 



BGMMOD GLBDA 
•SBTTL GLOBAL DATA 



P 



0001 







177700 

k : 

77600 



; INTERRUPT OCCUR ANCI FLAG 
;LOCATIOR TO FORM RLCS 
JMASK OUT SECTOR 
POLYNOMIAL FOR CRC 16 
; LOCATION USED BY "SIMBCC" 
^LOCATION USED BY "SIMBCC" 



; LOCATION USED 
;LOCATION USED 



BY "SIMBCC" 

BY "SIMBCC" 

;LQCATION USED BY "SIMBCC" 
> FIRST SECTOR READ 
>MASK CYLINDER AND HEAD SELECT 
;MAX SECTOR ADDRESS *1 

;max sector address 
jdifference word (seek) 

i§i?i M Hi!RSiSihiiiD 4 iiL 6 i?? 

;CS - BEFORE OPERATION 

;s? - IIEqseI Mm g« 

OPERATION 



;da 
;mp 

ICS 
;BA 
)DA 

;MP 



BEFOI 

BBFOl _ , 

AT OCCURANCE 
AT OCCURANCE 



AT OCCURANCE OF 

AT OCCURANCE OF ERROR 



RROR 
-RROR 
ERROR 



ASSEMBLY ROUTINES MACYll 

CZRLBB.P11 22-MQV-78 15:28 




30AC1052) 22-MOV-78 
GLOBAL DATA 

BCSR: .WORD 
BVEC: . WORD 
BPRIOR: .WORD 
FNDFNC : .WORD 
XMEM: .WORD 
TRYFNC: .WORD 
ERFLG: .WORD 
LOPIMX: .WORD 
LOPIMN: .WORD 
UOPIMX: . WORD 
UOPIMN: .WORD 
□PIMM: . WORD 
OPIMX: .WORD 
PWRFLG: .WORD 
T.CNTLR: 
DERFLG: . WORD 
ERPOINT: 
ERCOUNT: 



»SBTTL 
HDRTAB: 



15:35 PAGE 1-3 






650. 

155. 

400. 

160. 







.WORD 


.WORD 
• BLKW 



;CSR FROM P TABLE 
I VECTOR FROM P TABLE 
;BR LEVEVL FROM P TABLE 



6*0. 




HEADER COMPARE LOGIC 
} WALK 1 



?GROW 1 



?GROW 



ASSEMBLY ROUflllS 



CZRLBB.Pll 

191 



22-101-78 15S2S ' 



NACT11 30AU052) 22-101-78 15135 PACK 1-4 



i 



im 



oW 



003052 002000 
0070S2 



LIST TO ClItCK HIUKt COHPMI L06IC 



SKQ 003' 



im 

i 



0000 



HDRKIOt 
DATPAT t .VOtO 

• WORD 

• WORD 

• WORD 

• WORD 




>WALK 



1, 2,4,10, 20,4t,lM,20t,4OO,lt+«,2tf«,4ttt,lttt0,2t«0f,4t0tf,lt0O0« 

177777,17777*,177771,177771, 177707,177717,177717,177677 
177577,177177,170777,175777,173777,l«7777,lf7777,137777 
77777/17rn4/177770/1777i0/l77740/177700/177i00/ 177400 
177000/17f 000/174000/170000/ li0000,140000,3,7/17, 37,77 



•WORD 177,377,777,1777,3777,7777,17777,37777,0 



SBTTL BUFFER FOR RIAD/WRITK 
• BLKW 1024. 



BOFS 



EIDMOD 

•SBTTL GLOBAL TEXT 
S 88785? 047516 041440 047117 SollS? ?AsS?2 /NO CONTROLLER/ 



ASSEMBLY ROUTINES MACY11 30A(1052) 22-NOY-70 15335 PAGE 1-5 

CZRLBB.P11 22-MOI-78 15S28 GLOBAL TEXT 



SEQ 0035 





J GET STATUS) 
ION-FLAG MOt 
ION-INTR. 

heck operation 

heck opi: _ 

/READ HEADER QPERATfOM-f 
/READ HEADER OPERAT* ON-I 



CAUSED OTHER ERRORS/ 



/SEEK OPERATION-PL Al 
/SEEK OPERAT ION- INTI ^ 
/GET STATUS OPERAT ION-FLAJ 
/GET STATUS OPERATION-INT 

"*** " -FLAG MODE 

-INTR NODE 
-FLAG NOD 



MODE/ 
. MODE/ 

MODE/ 
• MODE/ 



/READ OPERATION-PL 
/READ OPERATION-IN 
/WRITE OPERATION-F 



MODE/ 

•10DE/ 
LAG MODE/ 
NTR MODE/ 

..JDE/ 
NODEg 



TRAC1 
ERROR/ 

6l 



[NTR 

t 0/ 



/WRIT a 

/WRITE QPERATION-INfR NODE/ 
IREAD W/O HEADER - FLAG MODE! 

tREAD W/Q HEADER - INTR 

/CAN*T SEEK Tl " " 

^RLCS E CON?AINEb"FOLLOWING ERROR(S): / 
120* 

NO IN _ _ 

. READ OPERATION DID 
/RLBA DID NOT INCREMENT 



2 8 

"I 



/NO INTERRUPT ON READ OPERATION 
/READ OPERATION .DIQ..NOT WRIT - 



SECT 



MOT. 







WRITE MEMORY/ 

PROPERLY DURING READ 

INCREMENT PROPERLY AFT 

D COULD NOT BE FORCED/ 



AFTER REA 



/DRIVE R 



MOO 



/DISK ADDRESS INCl 



/si 



ID NO 




§ NOT SET/ 
SET/ 

AFTER MULTIPLE SECTOR READ/ 
1RATION/ 
""RATION/ 

-PSEW.DORj !iR W 5j[ i f / 

NOT BE FORCED/ 



ROPERLY A 

'/DISK ADDRESS (RCDA) INCORRECT AFTER 
/HDR NOT FND COULD NOT BE FORCED AT 
/NON-EXISTANT MEMORY ERROR COULD — 



ASSEMBLY ROUTINES 
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011774 040504 
127 



342 
343 



ill 
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SEQ 0036 




. I 

HI mm mm 



014244 
014244 

014244 

. 014244 004737 
338 014250 004737 

' 014254 004537 



m 



015256 
015312 



020126 



104023 



-EVEN 



.ASCIZ %DATA COMPARISON ERROR - READ/WRITE ERROR* 



.ASCIZ 

, ASCIZ 

.ASCIZ 
.ASCIZ 
•ASCIZ 
.ASCIZ 
.ASCIZ 
.ASCI? 

• ASCI 

»asc! 

. ASCI- 

•Aim 

•ASCIZ 

.ASCIZ 

•Aim 

•ASCI" 
.ASCI 
•ASCIZ 
. ASCI" 

• ASCI 
.ASCI 
. ASCI 
.ASCIZ 
.ASCIZ 
.ASCIZ 
• ASCIZ 
.ASCIZ 
. ASCIZ 



CIZ 

m 



/WRITE OPERATION 
/ERROR ON PARTI Al 
/RLBA Dip NOT I 

/BA BIT v 

/BA BIT 
/RLBA T 
/BA BI 
/BA BI 
"RLr- 



f it? ON BA 
i NOT INCREM 

NOT INCREM 



MODIFIED I 

SECTOR Ml 
EMENT PRi 

~~rr ON 



r 

'/RLBADID NOT I M 

SliBj 8!£il8! 1 Eli 

/READ (FUNCTION || ER 



MORY/_ 

k J1|5e»T/ 

6_ INCREMENT TEST/ 



ZERO FILL CHECK/ 



/WRITE NPR CAUSED 
/READ NPR CA0SED_- 



DR 



W/O H_ 

7RCDA 181 
TIMIf" 



/OPI TIMING ERI 

/WRITE " 

/WRITE 
/RLBA 



NT WITH BA16/ 
T ON INCREMENT/ 

HcSB/ rDRCBD ' 

ORE? -0 
^0R| - SECTOR/ 
US TRAP/ 

!iHfepb3i[jp ,, - M,,BW? 



RROR 



EMENT AFTER 



HDR CMP 



HDR CMP? 



CHECK 



/RLDA 
/RLDA 

/WRI^ 
/CAM .... 
/CAN NOT 
/WRITE CHE 



II ffl " 



D NOT 



/WRITE CHECK 

MOT 



FORCE 



:aused ? bu| o |rap/ 
1meI! 7 propeIly during wrchk/ 

iterjupt with dck 01 wrchk/ 



MULTIPLE SECTOR WRITE 
"1/ 



CHK/ 



ENDMOD 

BGNMOD GLBERR 



•SBTTL GLOBAL ERRORS 
BGNMSG ERRO 



JSR 
JSR 



PC, LINE! 
PC/LIME2 

R5/ CKERLT 



345 014262 



JSR 

ENDMSG 

EMT C$MSG 
BGNMSG ERR1 



;INCREMENT ERROR AMD CHECK LIMIT 



L10000: 



ASSEMBLY ROUTINES 
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SEQ 0037 



00' 
013746 



mm 

002170 



L10001: 
BGNMSG 



JSR 
JSR 

ENDMSG 
EMT 
ERR2 
JSR 

PRISff B 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

ENDMSG 

EMT 

ERR3 

JSR 
JSR 

PRINTB 

MOV 
MOV 

MOV 
MOV 
MOV 
MOV 
EMT 
ADD 



JSR 

ENDMSG 

EMT 

BGNMSG ERR4 

JSR 
JSR 

PRINTB 
MOV 



L10002: 

BGNMSG 



L10003: 



PCLINEl 
R5/CKERLT 

C$MSG 

PC/LINEl 



/INCREMENT ERROR AND CHECK LIMIT 



#FRMT4,GDDAT,BDDAT 

1ooa I; :{sp| 



GDDAT 
fFRMTt*- 

SP £ R0 
CSPNTB 

#10,SP 

R5/CKERLT 



C$MSG 



PCLINEl 

PC,HNE~ 



^INCREMENT ERROR AND CHECK LIMIT 



C,LINE2 

FRMT5/TMP0/BDDAT/GDDAT 

DDAT,-(SP) 
BDDATWSP) 



DDAT,-(SP) 
_DDAT,-(SP> 
TMP0 £ -(SP) 
#FRMT5,-(SP) 

SP#R0 

CSPNTB 
#12,SP 



R5/CKERLT 

CSMSG 



PC,LINE1 
PC,LINE2 

#FRMT4/GDD AT/BDD AT 
BDDAT,-(SP) 



/INCREMENT ERROR AND CHECK LIMIT 



ASSEMBLY ROUTINES 
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394 



404 
405 
406 

pi 

408 
409 

it! 



014424 
014430 



li 

14450 

m 

014456 

014456 
014462 

mm 



96 014514 
00 014524 



m 

mhl 

014 

m 



6 

)6 



0627 
014450 004537 



104023 
004737 

n 



mm 

014506 004537 

104023 



.2746 

ill 



MACY11 
15:28 

002166 

mm 



000010 
020126 



015256 

WM 

000006 
020126 



015256 
015534 
015312 



30AU052) 22-N0V-78 15:35 PAGE 1-8 
GLOBAL ERRORS 



SEQ 0038 



014554 

"14554 
[4554 104023 

014556 



MOV 
MOV 
MOV 
MOV 
EMT 
ADO 



JSR 

ENDMSG 
EMT 

BGNMSG ERR5 
JSR 

PRINTB 
MQV 
MOV 



L10004: 



MOV 

EMT 
ADD 



L10005S 



JSR 

ENDMSG 
EMT 

BGNMSG ERR6 

JSR 
JSR 
JSR 

PRINTB 
MOV 
MOV 
MOV 

EMT 
ADD 
JSR 

ENDMSG 

L10006: 

EMT 

BGNMSG ERR7 



GDDAT,-(SP) 
#FRMT4 it -<SP) 



. 1 1s~ I 

fifcw 



R5/CKERLT 

C$MSG 



PC £ LINE1 



R|SIMS 



R5/CKERLT 
C$MSG 



PC/LINE1 
PC,LINE3 
PC>LINE2 



1PRMT99 
FRMT99«-(SP) 

CSPNTB 
#4,SP 

R5,CKERLT 



014556 004537 020126 



C$MSG 



R5/CKERLT 



; INCREMENT ERROR AND CHECK LIMIT 



^INCREMENT ERROR AND CHECK LIMIT 



; INCREMENT ERROR AND CHECK LIMIT 



; INCREMENT ERROR AND CHECK LIMIT 
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SEQ 0039 



014562 



104023 




015256 
015312 

mil 
"ml 

0004 



000012 



020126 



mm 

000003 
000010 
020126 



mm 

002170 
002166 
002162 



L10007: 



BGNMSG ERRS 

JSR 
JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MQV 

MOV 

EMT 

ADD 



JSR 

ENDMSG 
EMT 

BGNMSG ERR9 



L10010: 



L10011: 



JSR 
JSR 



MOV 
MOV 
MOV 
MOV 
EMT 
ADD 



JSR 

ENDMSG 
EMT 

BGNMSG ERR10 

JSR 
JSR 

PRINTB 
MOV 
MOV 
MOV 



C$MSG 



PCLINEl 

PCLINE2 



8FRMT6/TMP1/GDDAT/BDDAT 
-BDAT,-(SPj 



GDDAT/- 



TMP1 £ -(SP) 
IFRMT6*- CS 

CSPNTB 
#12/SP 



P) 



R5/CKERLT 

C$MSG 

PCLINEl 

PC £ LINE2 



U3H ru»L.incz 
PRINTB #FRMT4*TMP0,R2 
MOV R2#-(SP) 

TMP0,-(SP) 

|FRMT4,-(SP) 



R5/CKERLT 
C$MSG 



PCLINEl 

Iddat 



/INCREMENT ERROR AND CHECK LIMIT 



INCREMENT ERROR AND CHECK LIMIT 



GDDAT 
TMP1 



T7,TMP1/ 
T,'(SP> 

t;-csp) 



GDDAT/ BDDAT 



ASSEMBLY ROUTINES 
CZRLBB.P11 22-NOV-78 15:28 



MACY11 30AQ052) 22-NOV-78 15:35 PAGE 1-10 



(4) 

hi 

446 

447 

m 

(3) 



mm 

014736 
8l4?42 



014746 
014752 

mil 

014754 



2746 

214 



01 _ 3 
013746 

010600 

mm 

004537 
104023 



016117 

000004 



000012 
020126 




GLOBAL ERRORS 

MOV 
MOV 
MOV 

EMT 
ADD 



L10012: 
BGNMSG 



SEQ 0040 



L10013: 
BGNMSG 



FRMT7,-(SP) 

K 

SP 



R5,CKERLT 
C$MSG 



RjfcfSIi 

GDDAT,-f SP) 

CSPNTB 
#12, SP 



R5/CKERLT 



C$MSG 



; INCREMENT ERROR AND CHECK LIMIT 



GDDAT,BDDAT 



^INCREMENT ERROR AND CHECK LIMIT 



PC/LINE1 
PC L I N E 2 

gFfiMT9,TMPl,R3,GDDAT,BDDAT 
DDAT,-( SP ) 
GDDAT £ -JsH 

TH 



000014 



3,-(§P) 
HPIWSP) 
B FRMT9 £ -(SP) 

IP'r1 sP) 

CSPNTB 

#14,SP 



to? 



015074 004537 020126 



015100 
015100 
015100 



104023 



JSR 

ENDMSG 



R5,CKERLf 
C$MSG 



; INCREMENT ERROR AND CHECK LIMIT 
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473 
474 

475 
476 



«8 



483 
484 
485 
486 

K 

SB) 



488 
489 
490 
491 
492 

i 
I 

497 
498 



499 

18? 

m 



015102 



811 
8H 

015 
015 
015 
015 



015150 



5150 
5154 



81 



_S4 
,,-170 

015204 



0152 
0152 



81 



114 
015216 



015: 

oir 



.15. 
0152.34 

ft" " 

01 

015; 
015; 



004737 015256 




104023 



004737 
004737 

mm 



104023 



004737 
004737 

8tSHf 

"2746 

06 



H mi 

44 0627.. 

50 004537 

...Jl 

015254 104023 



mm 
m 



000012 



015142 004537 020126 

811111 

015146 



81 



5256 
5312 



003052 
002162 



062706 000010 



015210 004537 020126 



015256 
015312 



016723 
000002 



000006 
020126 



GLOBAL ERRORS 
BGNMSG ERR13 
JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

ENDMSG 

EMT 

BGNMSG ERR14 

JSR 
JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 



L10015: 



L10016: 



L10017: 



JSR 

ENDMSG 
EMT 

ERR15 

JSR 
JSR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

ENDMSG 
EMT 



SEQ 0041 



PC LINE1 

#F&MT10,OPIMN,QPIMX,BDDAT 




dP,Ru 
CSPNTB 
#12, SP 



R5,CKERLT 
CSMSG 



PC,LINE1 

~~ ' '"12 



/INCREMENT ERROR AND CHECK LIMIT 



#FRMT14#TMP1, 
fBUF,-(5P) 
TMPlJ-CSPj 



#BUF 



CSPNTB 
#10,SP 



R5/CKERLT 



; INCREMENT ERROR AND CHECK LIMIT 



C$MSG 



PC,LINE1 
PC,LINE2 
IFRMT15,R2 



#FRMT15, 

^kMt15/ 
SP) 



foil 
CSPNTB 



(SP) 



CKERLT 



C$MSG 
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SEQ 0043 



015532 000207 




016764 
016764 



ENDHW 
L10020: 



P) 



FRMT3,|EM1 

#RO 
PNTB 

o,SP 

FRMT3,#EM100 
EM100,-(SP> 
FRMT3^ r (SP) 

P 



CSPNTB 

lh sf 



AACONTROLLER: %06tA DRIVE: %01/ 
/%N%T%T%06%T%06/ 
/%T%06%T%06> 

/%T%06%f %06%A %06%A %06/ 
/%NtT/ 

/%NtAEXP'D: %06%A REC 
/%N%ALAST: %06%A PRES. 
/%M%ABUS ADR: %06%A EXP 
^|N|AWQRD:„%D3%A_EXP*D:_t06%A 
'""""*" "* "6% 



:*D: %06%N/ 
5: %06%A EXP 
EXP'D: loStA 



/%N%ADA: %06%A REC'D: %06*A EXP' 



D: . 

... recd: 

REC'D: %06%N/ 

. P # D: %06tN/ 

/%Nf AWORDS WRITTEN S %D|%A BUS ADDgS %06%H/ 



%06%N/ 
" %06%N/ 



/%N%AWORDS WRITTEN: %D3%A BUS ADDR: %06%A EXP'D: %06%A REC'D: !06*N/ 
/%N%ARANGE %D3%A - 1D31A MILLISECONDS WAS %D6%H/ 
/tAMAXIMUM TIMEOUT OF PROGRAM IS 3 SECONDS %N/ 
/%N%AERROR LIMIT EXCEEDED - DROPPEDlN/ 
/% ADRIVE DID NOT RECOVER FROM POWER FAILURE/ 



/%N%T%A 



. WILL NOT TESTtN/ 

/%N*APATTERN WAS * 106/ 



L10020-L$HW/2 

It* 00 

.40 


1 



;csr 

; VECTOR 

priority 

;drive (bits 8,9,10) 
;rlii=i rlvii=o 




5 
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BGNMOD SPfCOOE 
' BGNSW 

000005 .WORD L10021-LSSM/2 

00000Q DROP: .UORD 

mm RSHss :m 

000000 T.DMP: • UQRD 

000000 T.LMT: .UORD 

mm twin 

017000 ENDMOD 

017000 BGNHOD DSPCODE 

DISPATCH 47 

.UORD 47 

• MORD Tl 

•WORD T2 

•WORD T3 

:m n 

• UORD T6 
•UORD T7 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UQRD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UQRD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 

• UORD 




ROUTINES 
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mm 



002304 




• SBTTL INITIALIZATION CODE 
BGNHOD INITCODE 



1prio?,ro 

CSSPRI 



SETPRI 
MOV 

EMT CS 

READEF #EF.PUR 

MOV |ef.pur,ro 

EMT CSREFG 
BNCOMPLETE NOPMR 



BCC 
MOV 
BR 

READEF 
MOV 
EMT 



NOPUR 
L$UNIT,PWRFLG 
CONT 

!EF. RESTART 
EF.REST ART,R0 
$REFG 

START1 



BCOMPLETE 
BCS START1 
READEF #EF. START 
MOV #EF.START,RO 
EMT CSREFG 
BNCOMPLETE CONTINUET 
BCC CONTINUET 
ST ART l: MOV #ERCOUNT,R0 
MOV #64.,R1 
CLR (R0) + 

DEC Rl 
BNE 1$ 



1$: 



BR 



START 



000036 



READEF tfEF. CONTINUE 
#EF. CONTINUE, RO 
EMT CSREFG 



MOV 



103447 



BCOMPLETE 
BCS CONT 
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ill 



633 
634 

635 

81? 

hi 



643 

li! 

645 
646 

in 

649 
650 



-NQV-78 
5737 

m 



002136 
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SEQ 0046 



777 002140 START: 

m mm 



002312 



2$: 



mm 



002132 
002142 

007052 002126 

mm mm 7S: 



TST 
BNE 
MOV 



OUT 

xxx 

MOV #«-l # UBITST 
MOV L$UNIT,UUT 
MOV #ERCOUNT-2/ERPOINT 



INC 

ADO 
DEC 

GPHARD 

MOV 

EMT 

BCOMPL 

BCS 

TST 

BEQ 

DEC 

BR 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 
MOV 
ADD 
MOV 
ADD 
MOV 
ADD 
MOV 

TST 
BNE 

TST 

m 

SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

TST 

CLRVEC 
MOV 
EMT 
TST 

BEQ 
MOV 
BR 

MOV 
BIS 



UNITST 
jjjjjERPOINT 

un{?s?Jr8 

CSGPHRD 
ETE 2$ 

pIrflg 

NXT 

PWRFLG 
NXT 

(RQ)*,BCSR 
(R0)*/BVEC 
(R0)*,BPRIOR 

(R0)*J??fsTLR 

BCSR,R0 



RO/RlCS 
#2,R0 
kO/RLBA 

#2,R0 
kO/RLMP 

pwrflg 

5$ 

T.SIZE 

tIpflg 

ERRVEC 

34" 

TRL ..... 
RRVEC,- 

§ll*ii 

|rl6s 

ERRVEC 
ERRVECRO 
CSCVEC 
TRPFLG 

7$ 

|NORES,WHY 

#200,gRLCS 
DRIVE, gRLCS 



PFLG 

RVEC,gTRPHAN,#340 

RpfiAM,-|sP) 
RVEC,~(SP) 



;DONE WITH ALL UNITS 



;get bus address 
;get vector 

;G|f PRIORITY 

Jget BontIoller TYPE 

^CREATE REGISTERS 



;do he want to check units?? 

;NO 

;clear out trap indicator 

;setup to catch timeout 



>ACCESS CONTROLLER 



;DID TRAP OCCUR?? 
;NO, CHECK DRIVE 



;NOM CHECK DRIVE FOR READY 
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SEQ 0047 




162506 
002126 



ffltl 



162406 



002 
002 



002 
002 



100 
102 



100 
102 



8$: 



5$: 



3$: 



6$: 



1$: 



BIT 
BNE 
MOV 

PRINTB 
MOV 

MOV 
MOV 
MOV 
EMT 

ADD 
BR 

TST 
BEQ 
MOV 
BIS 
MOV 

HAITMS 
MOV 

EMT 
BIT 
BNE 
DEC 
BNE 

PRINTF 

MOV 

MOV 

MOV 

EMT 

ADD 

PRINTF 

MOV 

MOV 

MOV 

EMT 

ADD 

JSR 

DODO 

MOV 

EMT 

DOCLN 

EMT 

JMP 

MOV 

MOV 
TST 
BNE 
MOV 
MOV 

SETVEC 
MOV 
MOV 
MOV 



WHY 
WHY 



|l,gRLCS 

#FRMT13,-< 
I2,-(SP5 
SP,R0 
CSPNTB 

if' SP 



PWRFLG 
END 

#200,§RLCS 
DRIVE^|RLCS 



SP) 




(SP) 



gl fi SRLCS 

ii 

!FRMT99 
FRMT99 € - 
P* R o 

CSPNTF 

§FRMT98 
#FRMT98 < -(SP) 

CSPNTF 
f4,SP 
PC,LINE1 
UNITST 
UNITST/RO 
CSDODU 

CSDCLN 
NXT 

UOPIMN,OPIMN 
UOPIMX,OPIMX 
T.CNTLR 

L§PIMN / OPIMN 
LOPIMX/OPIMX 

BVEC / #INTSRV / #340 

INT§RV £ -(SP) 
VEC,-(3P) 



;pouer UP 

;N0 



;RLii?? 

;yes, then keep limits set 



m 



ASSEMBLY 
CZRLBB.P 



ROUTINES 
11 22-NOV-78 



684 
685 
686 

Is 



020006 
020006 
020006 

020010 

020010 

020010 



104011 



MACY11 

15:28 

000003 
000010 
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MOV 
EHT 
ADD 



#10,SI 



SP) 

_c 

SP 



L10022: 



ENDINIT 

EMT C$INIT 
ENDMOD 
BGNHOD CLNCODE 
BGNCLN 



SEQ 0048 



699 
70" 

li 



if] 
SI 

707 
708 
709 

ill 

m 

718 




M 85M 



020046 042777 000100 



(35 

\l\ 8. 

381 818 

705 020 



18811 



_0Q62 

818m 
8|88?4 

020100 



1! 



719 020106 

(!) mm 



013700 

mi 



°\o5 104012 
020104 
020104 
020104 

020104 000240 



002254 
002304 
002304 
002132 



162176 1$: 
162166 



2$S 



SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

BIT 

BEQ 

BIC 

CLRVEC 

MOV 

EMT 

TST 

BEQ 

DEC 

CLRVEC 

MOV 

EMT 



L10023! 



BGNMOD 



L10024: 



IPHAN,*340 



(SP) 

ERRVEC £ -(SP) 

ffo c SP 

|CRDV # §RLCS 

#INTEN,gRLCS 

BVEC 
BVEC £ R0 
CSCVEC 
PWRFLG 

p*§rflg 

ERRVEC 

ERRVEC,R0 

C$CVEC 



C$CLEAN 



ENDCLN 
EMT 
ENDMOD 

DRPCODE 
BGNDU 
NOP 
ENDDU 

EMT C$DU 
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SEQ 0049 



020110 



020110 



020110 
020110 



0201 



02012 



26 



005237 002144 



000002 



005237 

mm 

000240 

104020 

103427 

005737 
001424 
005277 



?i4 6 0?7 

mm 

013700 
104053 

104044 



002144 



016766 



162144 

162140 



mm 

002140 



ENDMOD 

•SBTTL 

BGNMOD 

BGNSRV 
INTSRV: 



GLOBAL SUBROUTINES 

GLBSUB 

INTFLG 



INC 

ENDSRV 
RTI 

; ROUTINE USED IN TIMING OP I 



L10025: 



TIMSRV: 



INC INTFLG 

ABORTWAIT 

EMT C$ABRT 

RTI 

NOP 

INLOOP 

EMT C$INLP 

BCOMPLETE 



BCS 



12 000205 



99$: 



99$ 




;SET INTERRUPT OCCURANCE FLAG 



99$ 

DROP 
99$ 
ERPOINT 

ERPOINT/MERLMT 
9$ 



FRMT11 
FRMT11*- 

Jj5o sp5 

CSPNTF 



C$DCLN 



(SP) 



DROP THIS UNIT 



.SBTTL ROUTINE TO CHECK FOR CONTROLLER ERRORS 

• *********************************************** 

;*THIS ROUTINE WILL CHECK RLCS FOR ERRORS AND PRINT THEM 

;*ACCORDINGLY. IT WILL MERGE THE ERROR PRINTOUT WITH THE TEST 

;*ERROR MESSAGE. 
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SEQ 0050 



763 
764 
765 




??lioo 

mm 

020752 

040000 

002310 
020752 

020000 

020752 

002000 

020752 

004000 

020752 

010000 

020752 

004000 

mm 

010000 
020752 
020752 
020752 



002226 



002226 
002226 
002226 
002226 



;JROUTINE USES R0/R1 
;* CALL JSR 



cherr: 



2$: 



002226 99$: 



3$: 



4$: 



5$: 



002226 6$: 



002226 7$: 



AMD PICKS HEADER FROM R3 
R5/CHERR 



;CHECK CNTLR FOR ERRORS 



8$: 



RESTMS : 



104462 

0004" * 



CLR 

III 

RTS 

MOV 

TST 

BPL 

JSR 

COMP 

BIT 

BEQ 

INC 

JSR 

DEMES 

BIT 

BEQ 

JSR 

NXMMES 

BIT 
BEQ 
JSR 

OPIMES 
BIT 
BEQ 
JSR 

HCRCMES 
BIT 

BEQ 
JSR 

HNFMES 

BR 

BIT 

BEQ 

IMC 

JSR 

DCKMES 

BIT 

BEQ 

JSR 

DLTMES 
JSR 

MSCRLF 

JSR 

«WORD 
CLRB 
ERRDF 
TRAP 
* WORD 



00,E.CS 



T.CRC 

|1760 

R. 

#EM100,RI 

R5,FIX 

|DERR,E.CS 

DERFLG 
R5/FIX 

|MXM,E*CS 

r!,fix 

|OPI,E»CS 
rI/FIX 

|BIT1I,E«CS 

r!,fix 

|BIT12,E»CS 
rI/FIX 



BIT11,E«CS 

ffcRC 
R5,FIX 

|BIT12/E.CS 

R5,FIX 

R5,FIX 
R5/FIX 
?R1) 

300.,LF,ERR6 

TSERCODE 

300 



ANY ERROR BITS SET? 
YES,PIND OUT WHICH 

GET START OF STRING 

l?-i D BS? s p§EiB?8g p T S<8§i TEB 

||Sg p |U? R COMP" IN STRING 

DRIVE ERROR SET? 
NO, CONTINUE 

YES* PUT "DRV" INTO STRING 
"DRV" 

NON-EXISTENT MEMORY ERROR? 
NO, CONTINUE 

YES* PUT "NXM" INTO STRING 
"NXM" 

"S OPj SET?.. 



BE) 



nil* ' 
PUT ' 
"OPT 



GO CHECK BITS 11 4 12 

Into string 



»opi m 



HEADERCRC error? 
NO, GO CHECK HEADER NOT FOUND 
GO PUT "HCRC" IN STRING 

"HCRC" 

HEADER NOT FOUND? 

NO, GO PUT "CRLF" IN STRING 

PUT "HNF" IN STRING 

"HHF" 

PUT "CRLF" IN STRING 

DATA CRC ERROR? 

NO, GO CHECK DATA LATE 

PUT "DCK" IN STRING 

"DCK" 

DATA LATE ERROR? 
NO, GO PUT IN "CRLF" 
PUT "DLT" IN STRING 
"DLT" 

PUT "CRLF" INTO STRING 

"CRLF" 

MOVE HEADER 

HEADER FROM TEST 

PUT TERMINATOR IN 
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SEQ 0051 




020440 

002264 

002134 
000200 
002146 
020764 
000200 



002222 



161504 



002146 
002260 
002260 



• WORD LF 
.WORD ERR6 
RTS R5 



;exit routine 



SBTTL LOAD RLCS 

******* * ********* ****** ************************ **************** 

* ROUTINE TO LOAD RLCS WITH FUNCTION TO BE PERFORMED 

* CALL: JSR R5,LDFUNC ;LOAD THE FUNCTION IN NEXT WORD 

* . WORD ;BITS TO BE LOADED, FUNCTION 

* ; AND INTR ENABLE ONLY 



161556 LDFUNC: BIT 

BE> 



6$: 



5$: 



1$: 



002146 2$: 



002146 
002146 
161346 



3$: 



161334 4$: 



BEQ 
MOV 
MOV 
MOV 
BIS 
MOV 
BIT 
BEQ 
MOV 
MOV 
MOV 
BIC 
MOV 
BIC 
MOV 
ASR 
BEQ 
CMP 
DEC 
BNE 
BIT 
BEQ 
TST 
MOV 
MOV 
MOV 
BIS 
CLR 
BIS 
BIS 
MOV 
JSR 
BIC 
MOV 
RTS 



hdrlst: nopmes 

NOPINT 
WCKMES 
WCKINT 



|BIT14,gRLCS 

@Ilda,b.da 

#13,6kLDA 
*200,B.CS 
DRIVE, B.CS 

B.CS,§RLCS 
|200,lRLCS 

B.DA,@RLDA 
(R5)*, LDCSR 
R3,-(SP) 
#177661* LDCSR 
LDCSR,FNDFNC 
#INTEN,FNDFNC 
|HDRLST,R3 
f NDFNC 

&3)*,(R3)+ 
DFNC 

tNTEN,LDCSR 



rI^rIsIms 

R3,TRYFNC 
XMEM, LDCSR 
XMEM 

DRIVE, LDCSR 
#200, LDCSR 
LDCSR, gRLCS 

R5, BEFORE 
#200, gRLCS 
(SP)*,R3 

R5 



;DRIVE ERROR SET 



?GET BITS TO LOAD 
;SAVE R3 

;CLEAR ALL BUT FUNC & INTR EN 

;SAVE FUNCTION 

/ONLY FUNCTION 

;GET HEADER LIST 

I ALIGN TO LEFT 

;IF EQUAL TO ZERO, SET R3 

;BUMP R3 BY 4 

;DEC FUNCTION 

;F0UND IT? NO-GO BACK 

;yes, DO WE WANT FLAG OR INTR? 

;FLAG BRANCH 

; INTR POINT TO THAT ONE 

;SET HEADER 

;SET UP HEADER 

;SAVE HEADER FOR LATER 

/LOAD E.A. BITS 

/CLEAR OUT THE BITS 

; SELECT DRIVE 

;LQAD FUNCTION 
;READ REGISTERS 
;ISSUE COMMAND 
;RESTORE R3 
;EXIT 
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15:28 LOAD RLCS 

GSTMES 



« *************************************************************** 

;*ROUTINE TO MOVE ASCII STRINGS 

;*USES REGISTERS Rl - WHERE STRING IS BEING BUILT 



fix: 

1$: 



CALL 

MOV 
MOVB 

Hf B 

RTS 




R5,FIX 



j address of string to move 

;get address and move return 
-|t byte and update 
. Itch o byte terminator 
;back up over zero byte 



h 

}B 

;exit 



m 

903 

m 



909 
910 
911 



HI 

917 
918 

921 

922 



020764 
020772 



1014 



017737 




26 021112 



up 

002154 
002176 



;ROUTINE TO READ REGISTERS PRIOR TO OPERATION 
;CALL: JSR R5/BEFORE 



MOV 
MOV 
MOV 
MOV 

RTS 



arlcs/b.cs 
rrlba/b. ba 
5rlda,b.da 

gRLMPjB.MP 



?READ CS 

; BA 

; DA 

? MP 



;ROUTINE ,TO R|AD p R|GISTERS AT TIME OF ERROR 



;C ALL : JSR 

AFTER: MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
RTS 



MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
CLR 
MOV 



1$: 



IRLCS/E,CS 
RLBA/E* BA 
RLDA/E.DA 
rlmpJe.mp 
RLMP/E.MP1 
RLMP,E.HP2 



S_ t . MP2 
R5H,TEMP3 
R5)+;TEMP4 
CCFBK 




/READ CS 

; ba 

; DA 

) MP 

} MP 

; MP 



;SAVE RO 
;SAVE Rl 

;SAVE R2 



TEMP4/R0 



;GET NUMBER OF BITS 

;GET DATA FOR CRC CALCULATION 

;GET STARTING CRC 

;GET PRESENT CRC 
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944 

hi 



040531 

P 
mm 

Sf-noS 

mm 

050037 

883313 

MM 
mil 



MACYll 30AQ052) 22-NOV-78 
15:28 LOAD RLCS 



15:35 PAGE 1-23 



002174 
000001 



002154 
002152 



002154 



0217 



76 

6621^6 



002154 

002152 002176 

mm 

002176 002156 



2$: 



ROR 
ADC 
BIT 
BEQ 
COM 
MOV 
COM 
BIC 
CLC 
ROR 
MOV 
MOV 
MOV 
BIC 
BIC 
BIS 
BIC 
BIS 
DEC 
BNE 

MOV 
MOV 
MOV 

MOV 
RTS 




TEMP4 
BCCFBKjrRO 

R1,R0 
BCCFBK/R2 

R2,R0 

XPOLY/TEMP4 
R0,TEMP4 

If 

temp4/calbcc 
csp)- 

(SP) 
ISP) 
R5 



P)+/R2 

P)*,R0 



;rotate new data 
;merge new with old 

;BIT SET 

>IF NOT CONTINUE 

J GET CRC POLYNOMIAL CCRC-16) 
;COMPLIMENT polynomial 

;CLEAR CARRY 



;return 



^ROUTINE TO WAIT FOR DRIVE READY 



III 



Oil 



005301 
001367 



m 



Q4462 

014456 

000205 



001014 



000024 



888^8 



160772 



160732 



wtdrdy: 


MOV 


1$: 


BIT 


BNE 




WAITUS 




MOV 




EMT 




DEC 




BNE 




ERRDF 




TRAP 




.WORD 




• WORD 




.WORD 


2$: 


RTS 



100. # R1 
DRDY,§RLCS 



,R0 



ffl: 

CSWT 

Rl 
1$ 

200. «DRT IM/ERR5 

TSERCODE 

6*RTIM 

ERR5 



;ROUTINE TO WAIT FOR CONTROLLER 
#40 



WTCRDY 

1$: 



MOV 

BIT 

BNE 



|400./R1 

CRDY/8RLCS 
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SEQ 0054 



312 



324 



021340 

mm 



021350 
021354 

021356 

021356 
021356 



M 8 

is 8 



1360 

im 
mi 

M 



\h 

.440 
442 

1444 
1450 
*450 

452 



MS 

HI! 



0(50205 

004537 

000205 



005237 
000002 



104004 



m 

004 



*737 

ill 

0}0 



ISoSii 



000010 

104010 
000174 
004537 

104010 
000164 

004537 



5 021450 

j mm mm 



000024 
021016 



021016 
002142 



000001 
000013 
020456 

021276 



020214 



020456 



021276 



020214 



2$S 



WAITUS 

MOV 

EMT 

DEC 
BNE 
JSR 

ERRDF 
TRAP 

• WORD 

• WORD 

• WORD 
RTS 

JSR 
RTS 



111*6" 



Rl 
if 

R5/ AFTER 



1 Q » , 
TSERC 
100 
CRTIM 

ERRS 
R5 

R5 



CRT IM/ERR5 

ODE 



/AFTER 



TRPHAM: IMC 

RTI 



TRPFLG 



BGNSEG 
EMT 



; ISSUE' DRIVE RESET 



CSBSEG 



mm 



MOV 

MOV 

JSR 

GSTAT 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 
»WORD 



JSR 
RDHDR 
ESCAPE 
EMT 

• WORD 
JSR 

ESCAPE 
EMT 

• WORD 

JSR 

ESCAPE 
EMT 

• WORD 



l/ERFLG 

DRSTIMK IGSBIT/I 

5/LDF0MC 

R5#WTCRDY 

SEG 

CSESCAPE 
10000S-. 
RjSgCHERR 

R5/LDF0NC 

SEG 

CSESCAPE 
10000S-. 
RSgWTCRDY 

CSESCAPE 
10000$-* 

R5/CHERR 
SEG 



;%%START OF SEGMEMflt 
JSJT ERROR FLAG 

' * ;LOAD THE FUNCTION IN NEXT WORD 

;CHECK FOR FL:LOE, ELSE EXIT SEG 

JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 

;LOAD THE FUNCTION IN NEXT WORD 
;CHECK FOR FLtLOE, ELSE EXIT SEG 

>CHECK FOR FL:LOE, ELSE EXIT SEG 

/CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE # ELSE EXIT SEG 
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SEQ 0055 



MM 

1018 

mi 

\m 

m 

1026 
1027 



103 



1035 



ill 

IS 

1044 
1045 

,11 

1048 

«i! 

nil 

1055 



1500 
1506 



540 



21560 
21564 



021616 
021616 



1620 



mm 

021626 
021630 
021632 



TO 



mu°o 

004537 

104010 
000040 

mm 

001404 



104462 

000620 
010303 
014244 



104010 
000006 



104005 
000207 



00000 

00216i 



020456 
021276 



013737 
042737 

mm 

012777 
053777 

004537 
000006 
004537 

104010 
000076 



004537 020214 

104010 

000066 

004537 

Q00~ ' 
004 



002234 002160 
000077 002160 



000100 002160 
" 160540 
160532 



020456 
021276 



021622 005037 002266 



002234 002160 
002150 002160 



99$: 



1$: 



10000$: 



MOV 
BIC 
BEQ 
BIC 
MOV 
BIS 

JSR 

SEEK 

JSR 

ESCAPE 

EMT 

• WORD 

JSR 

ESCAPE 
EMT 

• WORD 

JSR 

RDHDR 

JSR 

ESCAPE 
EMT 

• WORD 

JSR 

ESCAPE 
EMT 
. WORD 

MOV 

BIC 
BEQ 

ERRDF 
TRAP 

• WORD 

• WORD 

• WORD 

ESCAPE 
EMT 

• WORD 

CLR 



ENDSEG 

EMT 

RTS 

ENDMOD 



E.MP £ TMP0 
|77,TMP0 

99$ 

#100 £ TMP0 

|mk,§rlda 

TMPO/gRLDA 

R5/LDFUNC 

R5/WTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5/CHERR 
SEG 

CSESCAPE 
10000$-. 

R5/LDFUNC 

R5/WTCRDY 

SEG 

CSESCAPE 
10000$-- 
R5/CHERR 
SEG 

CSESCAPE 
10000$-. 

E.MP/TMPO 

SECMSK/TMPO 

1$ 

400.,SKHOME # E 

TSERCODE 

400 

SKHOME 
ERRO 

SEG 

CSESCAPE 

10000$-. 

ERFLG 



C$ESEG 
PC 



JGET HEADER 

/SEEK IS NOT NECESSARY 



;SET TO SEEK 

;SET IN DIFFERENCE 



;LOAD THE FUNCTION IN NEXT WORD 
;CHECK FOR FL: LOE/ ELSE EXIT SEG 



/CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



/LOAD THE FUNCTION IN NEXT WORD 
;CHECK FOR FL: LOE/ ELSE EXIT SEG 



;GET HEADER 
;IGNORE SECTOR 
;ON ZERO 

;CAN'T SEEK TO TRACK 



;CHECK FOR FL:LOE/ ELSE EXIT SEG 
/INDICATE SUCCESS BACK TO MAIN PROGRAM 



;%%END OF SEGMENT%% 
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**TEST 1** - WRITE NPR IHTEGRETY 

•SBTTL **TEST 1** - WRITE NPR IHTEGRETY 



1659 021632 

1060 021632 



021632 



021356 




;**START OF TEST** 



**************************** 



>CHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE 
;UNIBUS. WE SET UP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPEN 
STARS 

• . *************************************************************** 



IS: 



160230 5$: 



013700 002132 



6$: 



JSR 

CKERFG 
EMT 

• WORD 

BGNSEG 
EMT 

SETVEC 

MOV 
MOV 
MOV 

MOV 
EMT 
ADD 
CLR 
MOV 
CLR 
MOV 
CLR 
MOV 
BIS 
JSR 
MOV 
BIS 
BIC 
MOV 
MOV 
BIT 
BNE 

WAITUS 

MOV 

EMT 

DEC 
BNE 

JSR 

ERRDF 

TRAP 

• WORD 
.WORD 
.WORD 
CLRVEC 
MOV 



pc/hdhome 
lIooII-. 



;HEADS OVER TRACK 
J HEADS GO HOME OKAY 



:C,|TRPHAN,#340 

llL-CSP) 

;c,-(Sp) 



C$BSEG 

ERRVEC, 
TRPfi. 
RRVEC, 

|10 C SP 
TRPFLG 

BUF^gRLBA 

iiif RLMP 

DRIVE#GDDAT 

tWRITE,GDDAT 
5 £ BEFORE 
GDDAT#B.CS 

phS:Si 

#CRDY,gRLCS 

!sU R0 



R5, AFTER 

0. #CRTIM/ERR5 

T$ERCODE 



CRTIM 

ERR5 

ERRVEC 

ERRVEC/RO 



;%%START OF SEGMENTtt 
;SET UP FOR TRAP 

;CLEAR TRAP OCCURANCE 
;BUS ADDRESS 
;LOAD DISK ADDRESS 
;WQRD COUNT OF 1 
;SET UP CSR TO LOAD 
;SET IN DRIVE 
;SET IN FUNCTION 
;LOAD FOR ERROR PRINTOUT 
;SET IN COMMAND 
;LOAD CRDY 
;CLEAR (BIT 10) 
;ISSUE WRITE 
;WAIT FOR CRDY 
;NPR DONE 



WHILE 



;A WHILE UP 
;NO, GO BACK 



^CONTROLLER TIMED OUT 



? CLEAR VECTOR 
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ill 



1U 

15' 



I! 



022046 104036 



-dp 

?052 
iQ54 

\m 

!066 



022073 
022076 



2072 



6 

035676 
022100 

mm 

022102 
022102 



022102 



olliol 

022114 
022116 

mm 

022126 



104010 
000024 

mm 

004537 

0H244 



104005 



104001 



4032 
0126 



104004 



005077 
012777 



MACY11 30AU052) 
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002142 

021016 



004737 021356 



mi 2 ?. 



22-NOV-78 
*TEST 1** - 



15:35 PAGE 1-27 
WRITE NPR IHTEGRETY 



7$: 



10001$: 



EMT 

ESCAPE 

EMT 

.WORD 

TST 

BEQ 

JSR 

ERRSF 

TRAP 

.WORD 

.WORD 

• WORD 



ENDSEG 
EMT 



CSCVEC 
SEG 

CSESC&PE 
10001$-. 

TRPFLG 

R§, AFTER 

l.,EM51,ERR0 

T$ERCODE 

EM51 
ERRO 



CSESEG 



;CHECK FOR FLs LOE/ ELSE EXIT SEG 



;DID TRAP OCCUR? 
;NQ 



ENDTST 
L10026: 



« SBTTL 
BGMTST 



EMT 

**TEST 



C$ETST 
2** - WRITE FUNCTION 



;TRAP ON WRITE 



;%%END OF SEGMENT%% 



;**END OF TEST** 



;**START OF TEST** 



STARS 

. . *************************************************************** 

;check of write logic under flag mode, we will first issue a 
;read header so that we don't write on the bad sector 
;file track, we will write a full sector (128 words) from 
; memory (buf). we check that no errors occur. if we 
Shave a drive error we will do a "get status" to see 
;if write protect is set if it is we will abort the 
;test. an error on the write will loop on just the 
;write portion. loop on test will read header, seek (if 
5necessary) and write. 

STARS 

• . *************************************************************** 



JSR PC/HDHOME 
CKERFG 

EMT CSEXIT 

.WORD L10027-. 

BGNSEG 
EMT 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



C$BSEG 



;%%START OF SEGMENT!* 



3$: 



160114 



CLR 
MOV 



gRLDA 



12B.,gRLMP 



;SET DISK ADDRESS 
;WORD COUNT 
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no 

m 
1 



104005 
104001 



022246 
022246 



022246 



160102 



15:28 



003052 
020456 



021276 



040000 160054 

000003 160050 
020456 

021276 



mn mm 



**TEST 2** - 

MOV 
JSR 
WRITE 

JSR 

ESCAPE 
EMT 

• WORD 



BIT 
BEQ 



15:35 PAGE 1-28 
WRITE FUNCTION 

#BUF c fRLBA 
R5/LDF UHC 



SEQ 0058 



4$: 



HOY 

JSR 

sir 

i5f ilPE 

.WORD 

MOV 

BIT 
BEQ 



ERRSF 
TRAP 
.WORD 
. WORD 

.WORD 



10000$: 

ENDTST 

L10027S 



R5,WTCRDY 

SEG 

CSESCAPE 
10000$-. 



|DERR,§RLCS 

#MK I GSBIT, gRLDA 
R5,LDFUNC 

R5,WTCRDY 

E.MP,GDDAT 
JBIT13/GDDAT 

3./WRLOCK/ERR0 

|$ERCODE 

WRLOCK 

ERRO 



C$ESEG 



;bus address 

;LGAD THE FUMCTIOM IN NEXT WORD 

?WRI?E 

;WAIT FOR CONTROLLER READY 
KHECK FOR FL:LOE, ELSE EXIT SEG 



;DRIVE ERROR SET? 
JBRANCH IF NOT 

;SET GET STATUS OF DRIVE 

3LOAD THE FUNCTION IN NEXT WORD 
;GET STATUS 

;WAIT FOR CONTROLLER READY 
KHECK FOR FL:LOE, ELSE EXIT SEG 



;READ DRIVE STATUS 
1WRITE LOCK ERROR? 
}NO, BRANCH 



JiRITE LOCK ERROR 



;%%END OF SEGMENT!! 
;**END OF TEST** 



EMT C$EfST 
.SBTTL **TEST 3** - WRITE FUNCTION INTERRUPT 



BGNTST 



J**START OF TEST** 



STARS 

;CHECK OF WRITE LOGIC UNDER INTERRUPT NODE/ WE WILL ISSUE A 
/READ HEADER SO THAT WE DON'T WRITE ON THE BAD SECTOR FILE 
;TRACK. WE WILL WRITE A FULL SECTOR (128 WORDS) FROM MEMORY ( BUF) • 
;WE CHECK THAT NO ERRORS OCCUR. WE DO NOT CHECK RLDA OR RLBA 

/INCREMENT AT THIS TIME* 
STARS 



******************* 



rft*ft*ft* ********************** ft* ******* 



/ ROUTINES 

Pll 22-MOV-78 

022246 004737 

mm mm 

MMH 104004 



MACY11 30AU052) 

15:28 * 



021356 



22-NOV-78 
*TEST 3** - 



15:35 PAGE 1 
WRITE FUNCTION 



29 

INTERRUPT 



SEQ 0059 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 



PC/HDHOME 



CSEXIT 

L10030- 



C$BSEG 



/HEADS OVER TRACK 
;HEADS GO HOME OKAY 



;%%START OF SEGMENT!! 



022266 

wte 

022304 



mm 



mm 

022350 



« ffl 



005 
005 
012. . . 
012777 



104005 
104001 



44 
50 

-00 157744 
603052 157732 



000000 
020456 
021276 



000340 
002144 



012700 
104041 

o8oi|2 
004537 

ioooil 

\M 

001004 

Joooo? 

mm 

104010 
000006 



022366 004537 020214 

mm 



2$: 



10000$: 



ENDTST 
L10030: 



.SBTTL 

BGNTST 



CLR 
CLR 
MOV 
MOV 



INTFLG 
"RLDA 

-128./@RLMP 
BUF/gKLBA 



R5/WTCRDY 

SEG 



SETPRI fPRIOO 

MOV fPRI00,R0 

EMT CSSPRI 

JSR R5#LDFUNC 
WRITE I INTEN 

JSR ~ " 
ESCAPE 

EMT CSESCAPE 

.WORD 10000$-. 

SETPRI #PRIQ7 

MOV #PRI07,R0 

EMT C$SPRI 
TST 
BNE 

ERRDF 
TRAP 
.WORD 
.WORD 
.WORD 

ESCAPE SEG 

EMT "~ 
.WORD 

JSR R5/CHERR 

ENDSEG 

EMT C$ESEG 

EMT C$ETST 

**TEST 4** - PROPER 



||TFLG 

4./EM17/ERR0 

T$ERC0DE 

hi 



CSESCAPE 

10000$-. 



/CLEAR INTERRUPT OCCURANCE FLAG 

?SET UP WORD COUNT 
;SET UP BUS ADDRESS 

;PRIORITY TO 



/LOAD THE FUNCTION IN NEXT WORD 
JWRITE UNDER INTERRUPT 
;WAIT FOR INTERRUPT 

jCHECK FOR FL:LOE/ ELSE EXIT SEG 



;set priority to 7 

;did interrupt occur? 
j yes-branch no-report 

;write did not interrupt 

icheck for fl:loe/ else exit seg 

;check cntlr for errors 
;!!end of segment!! 

;**end of test** 

increment of rlba on write 

;**start of test** 



STARS 

..4*ft*S*4«***4****44*4*4*4*4444*t**4**4*****4*******4***44S*4**** 

;CHECK THAT THE RLBA WILL INCREMENT PROPERLY AFTER THE 



ASSEMBLY 
CZRLBB.P 



ROUTINES 
11 22-NOV-78 



I 



ip 

1233 



m 

15) 
1242 
1243 
1244 

1245 

M 
# 

1248 



022376 



004737 

mm 



MACYU 
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**?EST 4** - 



15:35 PAGE 1-30 

PROPER INCREMENT Of RLBA ON WRITE 




; WRITE WAS FINISHED THE RLBA 

sCREATER. STARTING " 

■ ~ WILL MONITOR ALL 



IWB W 
STARS 



3$: 



2$: 

10000$: 

ENDTST 

L10031: 



.SBTTL 
BGNTST 



CKERPG 
EMT 
.WORD 

BGNSEG 
EMT 



CLR 
MOV 
MOV 
MOV 
ADO 

sIIte 

JSR 

ESCAPE 

.SSrd 

JSR 

ESCAPE 

EMT 

• WORD 

MOV 

CMP 

BEQ 

ERRDF 
TRAP 
.WORD 
.WORD 

»WORD 



EMDSEG 
EMT 



EMT 



HHH-. 

CSBSEG 



iRLDA 

IB or 



************ ******** 

mm 



ER. STARTING RL 
LL MONITOR ALL E 

************************************************************ 

PC/HDHOME 



R5/LDF0NC 
R5, WTCRDY 

Warn 



rCHERR 



EM20 

ERR 4 



C$ESEG 



C$ETST 



;!!START OF SEGMENT!! 



;SET UP BUS ADDRESS 
COUNT 

EXPECTED BUS ADDRESS 



l!PiiR i iifii E 



ME 

5chIc! 



JLOAD THE FUNCTION IN NEXT WORD 

FOR CONTROLLER READY 
K FOR FL:LOE, ELSE EXIT SEG 



/CHECK CNTLR FOR ERRORS 
;CHECK FOR FLtLOE, ELSE EXIT SEG 



>g||D_:RLB 
>BA DID NOT INCREMENT 



>DID" *BA* B {nCR§MENT 
JUS, CONTINUE 



R_PR£§|g| g |DDRESS 



;%%EMD OF SEGMENTtf 
;**E1D OF TEST** 



**TEST 5** 



PROPER INCREMENT OF RLDA ON WRITE 

;**START OF TEST** 



ASSEMBLY ROUTI 
CZRLBB.P11 



UES 

22-NOV-78 



MACY11 30A(1052) 
15:28 * 



022532 



022532 



22-MOV-78 
r TEST 5** - 



15:35 
PROPER 



PAGE 1-31 

INCREMENT OF 



RLDA ON WRITE 



f Jii***** ******** ************************************************* 
;CHECK THAT THE SECTOR INCREMENTS AFTER THE WRITE WAS FINISHED. 
;WE RANDOMLY PICK A SECTOR (OTHER THAN LAST TRACK) AND ISSUE 
;A FULL SECTOR WRITE THE RLDA SHOULD REFLECT AN INCREMENT 
50F THE SECOTR. "GDDAT" WAS THE EXPECTED RLDA. 
STARS 



. ******************************** 



»* ******************** ********* 



022550 



022552 
022552 
022556 
022564 

833378 

022604 

mm 

022616 



022622 
022626 
022626 
022630 



004737 021356 

104032 
000114 



550 104004 



2662 



005037 
013777 
005237 

813??? 

mm 

004537 

mm 

013737 
80140*4 

mm 

011466 
014410 



104005 
104001 



002166 
002166 
002166 

mm 

020456 
021276 



020214 



02232 
02166 



157462 

Is 5 ?*!* 



002170 
002170 



3$: 



2$: 



10000$5 



ENDTST 

L10032: 



JSR 

CKERFG 

EMT 
.WORD 

BGNSEG 
EMT 



CLR 
MOV 
INC 
MOV 

MOV 

JSR 
WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 
ESCAPE 
EMT 
. WORD 

MOV 
CMP 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



EMDSEG 
EMT 

EMT 



PC/HDHOME 

CSEXIT 
L10032-. 



CSBSEG 



GDDAT 

GDDAT, 0RLDA 
GDDAT 

- - ggr 



;heads over track 
;heads go home okay 



R5/LDFUNC 

R5, WTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5,CHERR 

SEG 

Hire 

E.DA,BDDAT 

GDDAT, BDDAT 
2$ 



EM21/ERR4 

RCODE 



6.,! 
|$fel 

EM21 
ERR4 

C$ESEG 
C$ETST 



;%%START OF SEGMENT!! 



JSETUP DISK ADDRESS 
;CREATE EXPECTED SECTOR 
;WQRD COUNT 
?SETUP BUS ADDRESS 



;LQAD THE FUNCTION IN NEXT WORD 



;write 

;WAIT„FgR^CON|ROLL 



;CHECK FOR 



LER READY 

ELSE EXIT SEG 



?CHECK 



;CHECK CNTLR FOR ERRORS 
FOR FLsLOE, ELSE EXIT SEG 



/READ DISK ADDRESS 

;DID SECTOR INCREMENT PROPERLY 

;YES, BRANCH NO, REPORT ERROR 

;DA DID NOT INCREMENT 



;!!END OF SEGMENT!* 
;**END OF TEST** 



# 
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ti 



022664 
022664 



022664 

022664 
022670 

mm 
mil 



004737 

mm 

104004 



021356 



if m 

537 




m m 



020456 
021276 



002226 
001777 
112000 



020214 



002160 

881118 



112000 002160 



22-IOV-78 
*TEST 6 s * - 



15S35 PAGE 1-32 

FORCE HEADER NOT FOUND WITH WRITE 



SEQ 0062 



.SBTTL 
BGMTST 



**TEST 6** 



FORCE HEADER NOT FOUND WITH WRITE 

J**START OF TEST** 



;i* 

;F0RCE HEADER NOT FOUND ERROR TO OCCUR. THIS IS DONE 
;BY SETTING SECTOR 40 OF THE RLDA AND ISSUING A 
;WRITE. SECTOR 40 DOES NOT EXIST ON THE RL01 PACK 
>THEREFORE HDR NT FOUND SHOULD SET. 
STARS 

• . *********************************************************** 



1$; 



2$: 



10000$: 

EMDTST 



JSR 

CKERFG 

EMT 
.WORD 

BGNSEG 

EMT 



HOY 
MOV 

HOY 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 
»WORD 

MOV 

BIC 
CMP 

BEQ 

JSR 

CKLOOP 
EMT 

CMP 
BEQ 
ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



EMDSEG 
EMT 



PCHDHOME 

l!SoII-» 

C$BSEG 



>HEADS OVER TRACK 
;HEADS GO HOME OKAY 



;%%SfARf OF SEGMEITtt 



I40./ARLDA 

R5/LDFUNC 

R5# WTCRDY 

SEG 

CSESCAPE 

10000$-. 

E.CS,TMP0 



JINSURE NOT TO FIND HEADER BY 
; SETTING SECTOR 40 OF CYL. AO! 
;WORD COUNT 



ING SECTOR 40 OF CYL. ADDR. 
UNT 

;LOAD THE FUNCTION IN NEXT WORD 



;write 

>WAIT FOR CONTROLLER READY 
>CHECK FOR FL:LOE/ ELSE EXIT SEG 

;GET RLCS 



cia# inru } to ci KUbd 

(1777 £ TMP0 ;SAVE ERROR BITS 

BIT15IBIT12!BIT10,TMP0 JHDR NOT FOUND SET. 
$ ;Yfis, continue 



R5#CHERR 
C$CLP1 

iBIT15!BIT12iBIT10,TMP0 
23.,EM10,ERR0 

f Iercode 



ER 



C$ESEG 



?WHEN FORCED 

;%%EMD OF SEGMEST%% 
;**END OF TEST** 
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15:28 **TEST 6** - FORCE HEADER NOT FOUND WITH WRITE 



SEQ 0063 



1346 
1341 
1342 
1343 



1 

isii 



352 
353 

m 
w 
-P 

1360 

lilt 

1364 

lifl 



1370 



mm 

023022 
023022 

023022 



104001 




004737 021356 



000000 



4010 
0054 



002144 

000050 157164 

row mm 

020456 
021276 



000340 
002144 



L10033: 

.SBTTL 
BGMTST 



EMT C$ETST 

**TEST 7** - FORCE HEADER NOT FOUND WITH WRITE INTERRUPT 

;**START OF TEST** 



STARS 

. . *************************************************************** 

;TEST THAT HEADER NOT FOUND ERROR WILL GENERATE AN INTERRUPT 
;ON OCCURANCE. HEADER NOT FOUND WILL BE FORCED BY SETTING 
;SECTOR 40 OF RLDA AND ISSUEING A WRITE 

STARS 

« * A********** *********** ********** ******************************* 



2$: 



JSR 

CKERFG 

EMT 
• WORD 



PC/HDHOME 

CSEXIT 
L10034-. 



BGNSEG 

EMT C$BSEG 



SETPRI 

MOV 

EMT 

CLR 

MOV 

MOV 

MOV 



fP 



PRIOO 
~RI00,R0 
-*SPRI 
INTFLG 
40.,»RLDA 

buf,5rlba 

-1,§RLMP 



JSR R5/LDFUNC 

WRITE ! INTEN 

JSR R5,WTCRDY 

CKLOOP 



EMT 
SETPRI 
MOV 
EMT 

TST 

BNE 

ERRDF 

TRAP 

.WORD 

• WORD 
.WORD 



CSCLP1 

#PRI07 

#PRI07 # R0 

CSSPRI 

INTFLG 

2$ 

24. £ EM43/ERR0 

||ERCODE 

EM43 
ERRO 



ESCAPE SEG 

EMT CSESCAPE 

-WORD 10000$-. 



;HEADS OVER TRACK 

;heads go home okay 



;%%START OF SEGMENT!! 



/CLEAR INTERRUPT OCCURANCE FLAG 

; INSURE NOT TO FIND HEADER BY 

J SETTING SECTOR 40 OF CYL. ADDR. 
;WORD COUNT 

;LOAD THE FUNCTION IN NEXT WORD 

;write 

;WAIT FOR CONTROLLER READY 



;DID INTERRUPT OCCUR 

;yes okay 



;NO INTERRUPT FROM OPI 



;CHECK FOR FL:LOE, ELSE EXIT SEG 



ASSEMBLY ROUTINES 
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pi 

01402 

81ilff 004537 

023172 104006 

mm 




1400 

'pi 

liii 

is 
ii 




023220 
023220 



023220 



MACY11 

15:28 



104004 
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**TEST 7** - 



MOV 



020214 

112000 



02|220 004737 021356 

mm mm 
mm 



002254 




15:35 PAGE 1-34 

FORCE HEADER MOT FOUND WITH WRITE INTERRUPT 



m m 



002160 



1$S 



3$: 



10000$: 



ENDTST 
L10034: 



BIC 

CMP 

BEQ 

JSR 

CKLOOP 
EMT 

CMP 

IIIdf 
.woEd 

• WORD 
a WORD 



ENDSEG 
EMT 



J GET RLCS 
;§AVE ERRI 
T12IBITl0 £ TMP* 

;¥ES, 



OR BITS 
_ JWDR NOT FOUND SET. 
CONTINUE 



R5/CHERR 

C$CLP1 

|BIT15IBIT12IBIT10,TMP0 

lf. £ EM10,ERR0 
f SERCODE 



C$ESEG 



CSETST 



; WHEN FORCED 

;**END OF SEGMENT!* 
;**END OF TEST** 



**TEST 8** 



CHECK OPI TIME WITH HDR NT FND 

;**START OF TEST** 



. SBTTL 
BGNTST 

STARS 

• « ******************************************* 

;CHECK OPI TIME IT SHOULD BE AROUND 200 MILLISECONDS (ON UNIBUS) 
JCHECK TH IS^B Y^T IMING^OP I .ON _ A_FORCED_HE|fQER _ NO£_FQUMD 

ST 

?; 



jiSSUE WRITE WITH SECTOR 40 SET IN THE DI§K^ADd1eS§ 



************************************************************ 

PC/HDHOME 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 
EMT 

CLRfEC 

MOV 

EMT 

SETVEC 

MOV 

MOV 

MOV 

MOV 



mm- 



;heads over track o 
;heads go home okay 



C$BSEG 

BVEC 
BVEC,R0 

CSCVEC 

BVEC,#TIMSRV,#340 



SP) 



*?im£rv,-J 

BVEC,-<5P) 



;**START OF SEGMENT** 
/CLEAR PRESENT INTERRUPT VECTOR 

;SET INTR. VEC. WITH ABORT WAIT 



ASSEMBLY ROUTINES 
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i 



IS 

fa 

® 
is 



ft 



5 



142 

143 
143 



lis 



3266 



mi 



m 



2777 



000112 



005000 

ISiii! 



MACY11 
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**TEST 8** - CHECK OPI TIME WITH HDR NT FND 



mi 



000010 
000000 



050 
020456 



002302 

SSilSi 

002170 
002144 

002170 
000012 

002170 




002254 



mm 

156720 



002170 
002170 



CSSVEC 

m w 



EMT 

ADD 

SETPRI 

MOV 

EMT 

CLR 

MOV 

MOV 

MOV 



JSR R5/LDFUNC 
WRITE ! INTEN 




/CLEAR INTERRUPT FLAG 
;SET UP FOR HDR NT FND 
;BUS ADDRESS 
;WORD COUNT 



>LOAD THE FUNCTION IN NEXT WORD 



002170 1$: 



3$: 



MOV 

ASL 
ASL 
ASL 
ADD 
ADD 

WAITUS 
EMT 

MOV 
TST 
BEQ 

GETTIM 

EMT 

MOV 

CLR 

SUB 

BMI 

INC 

BR 

MOV 



OPIMX,R0 

RO 
RO 

OPIMX,R0 

opimxJro 

CSWTU 

RO/BDDAT 

INTFLG 

4$ 

BDDAT 

CSGTIM 

RO/BDDAT 

RO 

|10., BDDAT 
RO 

RO/BDDAT 



;WAIT MAX MILLISECONDS 

;SETUP FOR WORST CASE 
;DID INTERRUPT OCCUR 
;NO, REPORT ERROR 

;GET TIME EXPIRED 



;DIVIDE 

;answer 

;BY 10 TO GET 

;right answer 



;CHECK THAT OPI TIME 

2$S 



IS WITHIN LIMITS 



4$: 



5$: 



SETPRI 

MOV 
EMT 
CMP 
BLT 

CMP 
BLE 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

CLRVEC 

MOV 

EMT 

SETVEC 



PRI07 
PRI07/R0 



CSSPRI 

OPI""" 



4$ 



MX, BDDAT 



;is 
;no, 



IT WITHIN LIMITS 

REPORT ERROR 



gPIMN, BDDAT 
974.,EM56,ERR13 

t|er6ode 

EM56 
ERR13 

BVEC 
BVEC* RO 
CSCVEC 

BVEC,#INTSRV,#340 



;WITHIN LIMITS 

;yes 



?OPI TIMING INCORRECT 



;CLEAR PRESENT VECTOR 

;SET IN OLD VECTOR 



ASSEMBLY ROUTINES 
CZRLBB.P11 22-MOV-78 




30AU052) 22-NOV-78 

**TESf 8** - 

MOV 
MOV 
HO¥ 
MOV 
EMT 
ADD 



15:35 PAGE 1-36 
CHECK OPI TIME WITH 



HDR MT FMO 



SEQ 0066 



020456 
021276 



CSSVEC 
#10,SP 



SP) 



10000$: 



EMDTST 
L10035: 



ENDSEG 

Em 



C$ESEG 



C$ETST 



;%%ESfD OF SEGMEMT%% 



;**ES!D OF TEST** 



«SBTTL **TEST 9** - MULTIPLE SECTOR TRANSFER Off WRITE 



BGHTST 



;**STIRT OF TEST** 



STARS 

. » *************************************************************** 

;CHECK FOR MULTIPLE SECTOR TRANSFER ON WRITE. THIS TEST CHECKS 

;THAT TWO SECTORS CAN BE SUCCESSFULLY WRITTEN, WE LOAD 

;A WORD COUNT OF 129 WORDS (ONE SECTOR ♦ 1 WORD) STARTING AT 

;SECTOR THRU SECTOR 37 AND VERIFY THAT THE RLDA DOES 

;A DOUBLE INCREMENT EACH TIME. 

STARS 

y » ** ********* ******* * *********************** ************** ******* 



1$: 



JSR 

CKERFG 
EMT 

.WORD 

CLR 
CLR 

BGNSEG 

EMT 



MOV 
BIS 
MOV 
ADD 
MOV 
MOV 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 

* WORD 



PC/HDHOME 

lISo!!-. 

TMPO 
TMP1 



C$BSEG 



TMP1/GDD AT 
TMPO/GDDAT 
GDDAT,8RLDA 

12,006*1 
BUF* §RLBA 
-129./8RLMP 

R5/LDFUNC 

R5/WTCRDY 

SEG 



CSESCAPE 

10000$-. 



jheads over track o 
;heads go home okay 



;CLEAR TEMP LOCATIONS 

JttSTART OF SEGMEMTtt 



DISK ADDRESS-SECTOR 

;SET EXPECTED ♦ 2 

;SET BUS ADDRESS 

;W0RD COUNT-SECTOR* 1 WORD 

/LOAD THE FUNCTION IN NEXT WORD 

;write 

;WAIT FOR CONTROLLER READY? 
;CHECK FOR FLsLOE, ELSE EXIT SEG 



ASSEMBLY ROUTI 
CZRLBB.P11 



023634 
023640 




1506 



mi 



1518 

mi 



NES 

22-NOV-78 

004537 

104010 
000044 

001404 

i8ooo? 

011544 
014410 



mm 

001322 



104005 
104001 



023712 
023712 



023712 



MACY11 30AC1052) 

15:28 * 



22-NOV-78 
►TEST 9** - 



0160 



H702 



mm 



88«J M 



004737 021356 



003052 
000200 
125252 



002170 
002166 



46 002160 



15:35 PAGE 1-37 

MULTIPLE SECTOR TRANSFER ON WRITE 



SEQ 0067 



2$: 



10000$: 



ENDTST 

L10036: 



.SBTTL 
BGNTST 

STARS 

• ***** 



JSR 

ESCAPE 
EMT 

. WORD 

MOV 
CMP 

BEQ 

ERRDF 

TRAP 

.WORD 

• WORD 

• WORD 



INC 

CMP 

BNE 

ENDSEG 
EMT 



R5/CHERR 

SEG 

CSESCAPE 
10000$-. 

E.DA#BDDAT 
BDDAT/GDDAT 

2$ 

7./EM22/ERR4 

TSERCODE 

EM22 
ERR4 



MPO 

46/TMPO 



sCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:L0E, ELSE EXIT SEG 



;READ DISK ADDRESS 

;IS DISK ADDRESS CORRECT 

;YES, BRANCH NO/ REPORT ERROR 

;disk address not CORRECT 



;next sector 

; AT END? 

;no, go back 



C$ESEG 



EMT C$ETST 
**TEST 10** - CHECK 



;%%END OF SEGMENTS 
;**END OF TEST** 

DIRECTION OF WRITE NPR 

;**START OF TEST** 

************************************** 



. KKWttH* **************** ft*** 

; VERIFY THAT A WRITE IS WRITING NOT READING. WE WRITE A 

$KNOWN PATTERN IN "BUF" (12f *" *" * 

;ONCE THE WRITE IS FINISHED 
;THIS IS DONE TO PROVE THAT 

mi 



WORD)/ WE THEN ISSUE A WRITE. 
WE CHECK THAT "BUF" IS INTACT. 
THE NPR IS GOING THE RIGHT 



STARS 

j j ****** 



********************************************************* 



JSR PC/HDHOME 
CKERFG 

EMT CSEXIT 

.WORD L10037-. 



;heads over track o 
;heads go home okay 



BGNSEG 

EMT C$BSEG 



2$: 
3$: 



MOV 

MOV 
MOV 



111 



F/R2 
8./R1 



o . / n i. 

5252/(R2)+ 



;%*START OF SEGMEMT%% 



;WRITE BUFFER FOR WRITE OPERATION 
;ONE SECTOR'S WORTH 
;WRITE BUFFER 



1540 



ROUTINES 

11 22-MOV-78 



MACYll 
15:28 



mu 



24052 



024 



mm 

024106 



II 

104010 
000076 

004537 

mm 



701 



m 

1406 



010237 

mm 
mm 

Jooolo 

mm 

001357 



104005 



104005 



104001 



301(1052) 



mm 



22-M0V-78 15:35 PAGE 1-38 
*?EST 10** - CHECK DIRECTIOI OF WRITE SIPR 



020214 



003052 
000200 



m 

166 



002166 
002170 





DEC 




BNE 




CLR 




MOV 




MOV 




JSR 




WRITE 




JSR 




IS?*" 




• WORD 




JSR 




ESCAPE 




EMT 




• WORD 




MOV 




MO? 




BGNSEG 




EMT 




MOV 




MOV 


CMP 




BEQ 




MOV 
ERRDF 




TRAP 




• WORD 




• WORD 




• WORD 


5$: 


ESCAPE 


EMT 




• WORD 


6$: 


TST 


DEC 




BNE 




ENDSEG 


10001$: 




EMT 




ENDSEG 


10000$: 


EMT 


ENDTST 




L10037: 




EMT 



•SBTTL 
BGNTST 



**TEST 



JRLDA 
i/L6fuN 
R5gWTCRDY 

IIescape 

10000$-. 

R5 C CHERR 
SEG 

fBUP,R2 
#128. ,R1 

C$BSEG 

wsa 

5$ 



RLMP 
BA 



;no!| E go BACK 

\m 85Sgt ADDRESS 

;BQS ADOBES: 



;WRI 

m 



lokd THE FUNCTION IN NEXT WORD 

TA 

FINISH 
L:LOE, ELSE EXIT SEG 



E S&ME DATA 

FOR IT TO FINISH 
K FOR F" 



JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;SET UP TO CHECK BUFFER 
;CHECK 128 WORDS 



JttSTART OF SEGMENTtt 



DDAT 

T 



;DATA SHOULD BE 
JLOAD DATA INTO 
f IS IT OKAY? 

;yes, continue 



tiffi 2 



R2#TM|1 

t$IrcodI 

8 

EM26 
ERR8 

SEG 

CSESCAPE 
10001$-. 
(R2)* 



JLOAD MEMORY LOCATION OF FAILURE 

ERR8 



JCHECK FOR FLXLOE, ELSE EXIT SEG 



;mexti 

;DONE? 

>m, GO BACK 



C$ESEG 

C$ESEG 

C$ETST 
11** - CHECK FULL RLBA 



;t%END OF SEGMENTtt 

;%%EMD OF SEGMENTtt 
;**END OF TEST** 

INCREMENT 

|**START OF TEST** 



ASSEMBLY ROUTINES 
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024110 
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15:28 **TEST 11** - CHECK FULL RLBA INCREMENT 

STARS 

;TEST THAT THE RLBA WILL INCREMENT, WE DO NOT DO A FULL 16 
;BIT INCREMENT WE CHECK THAT EACH BIT WILL TOGGLE TO 1 
; AND 1 TO 0. WE DO CHECK ALL BITS EVEN IF ALL MEMORY 
;IS NOT AVAILABLE. (WE IGNORE NON-EXISTANT MEMORY ERRORS). 
;WE USE THE SAME DISK ADDRESS (RANDOM) AND A 1 WORD TRANSFER. 
STARS 

• . ******** 



004737 021356 



002162 



0?oJo2 
002230 
002166 



********************************************************* 



177777 156106 
156100 

002162 156070 

020456 

021276 



002166 
002166 
002170 
002170 



002162 

000002 002162 



3$: 



4$: 



5$: 



6$: 



JSR 

CKERFG 
EMT 

• WORD 



CLR 



BGNSEG 

EMT 



MOV 
CLR 
MOV 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 

• WORD 

MOV 
ADD 
MOV 

CMP 

BEQ 

ERRDF 
TRAP 

• WORD 

• WORD 

• WORD 
ESCAPE 
EMT 

• WORD 

ASL 
BCS 
BIS 
BR 



PCHDHOME 



CSEXIT 

L10040-. 



TMP1 

C$BSEG 



Ri6f RLMP 

MPl/gRLBA 
R5/LDFUNC 

R5y WTCRD Y 

SEG 

TMP1#GDD AT 
f 2/GDDAT 
E.BA,BDDAT 
GDDAT/BDDAT 

5$ 

9.,EM30,ERR4 

T$ERCODE 

9 

EM30 
ERR4 
SEG 

CSESCAPE 

100" 



0000$-. 



TMP1 

6$ 



|BIT1,TMP1 



;HEADS OVER TRACK 
/HEADS GO HOME OKAY 



;CLEAR LOCATION 

; ttSTART OF SEGMENTtt 



/ONLY ONE (1) WORD 
;L0AD DISK ADDRESS 
;BUS ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

;WAIT FOR WRITE TO FINISH 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



>SET UP EXPECTED RLBA 
;PREVIOUS RLBA+2 
;READ RLBA 

;was it updated properly? 
;yes, continue 

;ba increment error 



;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;NEXT PATTERN TO TEST RLBA 

;DONE? 

;NO/ SET IN BIT 1 
;GO CHECK NEXT. 

;END TEST 



ASSEMBLY 

CZRLBB.P 
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15:28 **?EST 11** - CHECK FULL RLBA INCREMENT 



SEQ 0070 



18! 



mi 



164 
16' 
1649 



4256 



024262 
024262 



024262 



56 104005 



104001 



004737 021356 




032737 
001004 



155734 

155726 



020000 002226 
020214 



000020 002226 



10000$: 

em?:. 



ENDSEG 



EM? C$ESEG 
EMT C$ETST 



>%%EMD OF SEGMENT!! 
?**EMD OF TEST** 



.SBTTL **TEST 12** - BA BIT 16 INCREMENT 



BGNTST 



;**START OF TEST** 



it 



HECK THAT 



IT 16 WILL INCREMENT. 



;RLBA WITH 1?77?6 aId ISSUE A ONE WORD WRITE WE TffE; 
;CHECK BA BIT 16 TO SET, BA 17 TO STAY " 

;to go to zero 



WE WILL LOAD THE 
WRITE WE THEN 
A AND THE RLBA 



2$: 



3$: 



JSR 

CKERFG 
EMT 
> WORD 

BGNSEG 

EMT 



MOV 

CLR 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 
.WORD 
BIT 



JSR 

ESCAPE 

EMT 

.WORD 

BIT 
BNE 

ERRDF 
TRAP 
• WORD 

.WORD 



PC/HDHOME 

CSEXIT 

L10041-. 



C$BSEG 

|J77776,,RLB. 

W Bh * p 

R5,LDFUNC 

R5#WTCRDY 

SEG 

CSESCAPE 
10000S-. 
|NXM,E.CS 

R5,CHERR 

SEG 

CSESCAPE 

10000$-. 

£BA16,E.CS 

M^' ERR0 



M31 



; HEADS OVER TRACK 
>HEADS GO HOME OKAY 



;%%START OF SEGMENTtt 



;SET MAX BA TO INC. BA16 

;WE DON'T WANT TO LOAD ANY EA 

;ONE WORD TRANSFER 

;LOAD THE FUNCTION IN NEXT WORD 

;WAIT FOR WRITE TO FINISH 
;CHECK FOR FL:LOE, ELSE EXIT SEG 

;NON-EXISTANT MEMORY ERROR? 
>YES, CONTINUE 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FLsLOE, ELSE EXIT SEG 



;DID BA16 SET? 

;yes, continue 

;ba 16 did not increment 



i ROUTINES 

Pll 22-NOV-78 



024402 014244 



024406 
024414 



024426 
024426 

024430 

mm 

024444 

mm 

024450 

024452 

024454 



024454 
024454 

024456 



024460 
024460 



024460 



104006 



032737 
001404 



104462 
000013 
012270 
014244 



104006 

mm 

001404 

mm 



104005 
104001 



MACY11 

15128 



304(1052) 



000040 002226 



002170 



22-NOV 
>TEST 1 



-78 

2** 



15:35 PAGE 1-41 
BA BIT 16 INCREMENT 



SEQ 0071 



•WORD ERRO 



4$: 



5$: 



6$: 



10000$: 



ENDTST 

L10041: 



.SBTTL 
BGNTST 



CKLOOP 
EMT 



ERRDF 
TRAP 

.WORD 
» WORD 
.WORD 

CKLOOP 
EMT 

CLR 

MOV 

BEQ 

ERRDF 

TRAP 

.WORD 

* WORD 

.WORD 



ENDSEG 
EMT 



C$CLP1 



|BA17,E.CS 

ll.,EM32/ERR0 

TsERCODE 

11 

EM32 
ERRO 



C$CLP1 
GDDAT 

E.BA,BDDA? 

12.,EM33,ERR4 

T|ERCODE 

EM33 
ERR4 



C$ESEG 



;DID BA17 SET ALSO? 
;NO, GOOD CONTINUE 

;BA 17 GOT CARRIED AWAY 



;CHECK THAT BA15-BA0 IS CLEAR 

;READ BA 

;IS BA ZERO? 

;BA SHOULD BE ZERO 



;%%END OF SEGMENT%% 
;**END OF TEST** 



Ih 



EMT C$ETST 

**TEST 13** - BA BIT 17 INCREMENT 

;**START OF TEST** 

***************************************** 



. HECK THAT BA BIT 17 WILL INCREMENT. WE WILL LOAD THE 
;RLBA WITH 177776 AND BA 16 SET, WE WILLISSUE A ONE WORD 
;WRITE. WE THEN CHECK BA17 TO SET, BA16 TO CLEAR AND 
;BA15 - B AO TO CLEAR. 
STARS 



**************************** 



************************** 



1686 024476 



004737 021356 



104032 
000162 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 



PC/HDHOME 

CSEXIT 
L10042-. 



;HEADS OVER TRACK 
/HEADS GO HOME OKAY 



;%*START OF SEGMENT«% 



ASSEMBLY 

CZRLBB.P 

Pi 

s 

16? 



1695 

U9§ 



1 
If 



ll 



171 

mi 
m 



ROUTINES 

11 22-ffO¥-78 

024476 104004 



MACY11 

15:28 



301(1052) 



22-NOV 

*TEST 1 



78 15:35 PAGE 1-42 
3** - BA BI? 17 INCREMENT 




mm 

155526 



002226 



002226 



2$: 



3$: 



000020 002226 



4$ 5 



5$: 



002170 



C$BSEG 



MOV 
MOV 
MOV 
CLR 



JSR 
"RITE 
_SR 

ESCAPE 

" T 



6$: 



EMT 
.WORD 
BIT 
BNE 

JSR 

ESCAPE 
EMT 

• WORD 

BIT 
BNE 

ERRDF 
TRAP 

• WORD 
.WORD 
.WORD 

CKLOOP 
EMT 

BIT 
BEQ 

ERRDF 
TRAP 

• WORD 
.WORD 

• WORD 
CKLOOP 
EMT 

CLR 

MOV 

BEQ 

ERRDF 

TRAP 

• WORD 
.WORD 

• WORD 



EMDSEG 



mm*®-* 1 

|-1#|RLMP 
R5,LDFUNC 

R5,WTCRDY 

SEG 

CSESCAPE 
10000$-. 
|NXM,E.CS 

R5/CHERR 
SEG 

CSESCAPE 

10000$-. 

j|BA17/E.CS 

13.,EM34,ERR0 

TsERCODE 

EM34 
ERRO 

C$CLP1 
g|A16,E.CS 

14.,EM35,ERR0 

f |ERCODE 

Im35 
ERRO 

C$CLP1 

GDDAT 

E.BA,BDDAT 

lli #EM36/ERR4 
T|EkC0DE 

EM36 
ERR4 



MAX BA TO INC. 

BA16 |M JLCS 



BA16 

WOfiD TRANSFER 

;LOAD THE FONCTION IN NEXT WORD 



>WAIT FOR WRITE TO FINISH 
;CHECK FOR FL:LOE, ELSE EXIT SEG 

; non-existant memory error? 
;yes, continue 

JCHECK CNTLR FOR ERRORS 
>CHECK FOR FLlLOE# ELSE EXIT SEG 



;DID BA17SET7 
>YES, CONTINUE 

>B A 17 DID NOT SET 



;DID BA16 SET ALSO? 
;NO, GOOD CONTINUE 

;BA 16 DIDN'T KNOW WHEN TO QUIT. 



JCHECK THAT BA15-BA0 IS CLEAR 
;READ BA 
;IS BA ZERO? 

;BA SHOULD BE ZERO 



;%%END OF SEGMENT** 



BLY ROUTINES 
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024654 104005 
Q24656 
24656 
024656 104001 
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15:28 **TEST 13** - BA BIT 17 INCREMENT 



000020 



021356 



000340 
021350 
002132 
000003 

000010 

020456 
021276 
002132 



020214 



155304 
155276 



10000$: 

ENDTST 
L10042: 



•SBTTL 
BGNTST 



EMT 



C$ESEG 



;**END OF TEST** 
EMT C$ETST 

**TEST 14** - TEST READ NPR INTEGRITY 

;**START OF TEST** 



?T**l*ft ****** ****************** ********************************** 

;6HECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE UNIBUS 
;WE SETUP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS 

STARS 

• * t *************************************************************** 



1$: 



1758 025006 005737 002142 



JSR 

CKERFG 
EMT 
• WORD 

BGNSEG 
EMT 



SETVEC 
MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

MOV 

CLR 

MOV 

JSR 

READ 

JSR 

CLRVEC 

MOV 

EMT 

ESCAPE 
EMT 
.WORD 
JSR 

ESCAPE 
EMT 
• WORD 

TST 



PCHDHOME 



CSEXIT 
L10043-. 



/HEADS OVER TRACK 
/HEADS GO HOME OKAY 



C$BSEG 



ERRVEC/ 

340,-(SP) 
TRPHAN,-£SP 

& RRVEC,-(SP) 

f RPf LG 
|BUFjr8RLBA 

I-l/gRLMP 
R5 # LDFUNC 

R5# WTCRDY 

ERRVEC 
ERRVEC/RO 
CSCVEC 
SEG 

CSESCAPE 
10000$-. 
R5/CHERR 
SEG 

CSESCAPE 
10000$-. 

TRPFLG 



TRPHAN,#340 
) 



;**START OF SEGMENT** 



;SET UP VECTOR 



;CLEAR TRAP PLAY 
;LOAD BA 

;load DA 

;LOAD WC 

;LQAD THE FUNCTION 



IN NEXT WORD 



;CLEAR OUT VECTOR 
?CHECK FOR FL:LOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;DID TRAP OCCUR? 



ASSEMBLY ROUTINES 
CZRLBB.P11 22-NOV-78 



001404 
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15S28 **TEa . 14** - TEST READ NPR INTEGRITY 



SEQ 0074 



7$! 



1I F I!iftigiI' ERR0 

.WOttO 17 

EM52 

ERRO 



. WORL 
-WORD 



;mo £ OKAY 

;YES/ PRINT ERROR 



104005 



10000$! 



ENDSEG 



C$ESEG 



;%%EMD Of SEGMENT %% 



25026 
25026 

25026 104001 



025030 
025030 



025030 



ENDTST 
L10043: 



EMT CSETST 
. SBTTL **TEST 15** - READ FUNCTION 
BGNTST 
STARS 

•a************ 

;CHECK OF THE READ FUNCTION. 
;HEADER TO FIND OUT WHERE ME Ai 
;A FULL SECTOR READ, WAIT FOR 



;**END OF TEST** 



;**START OF TEST* 



**************************************** *********** 



HE HILL FIRST DO A READ 
RE AND THEN ISSUE 
READY AND CHECK FOR 



.... ADY AND CHECK FOR 

ANY ERRORS 
TARS 

• ************** ******************************** ****** 



»«*«**«**** 



1789 02507 



1 
1 



0|5g|0 004737 021356 
104004 

M P 

12777 



g||l04 004537 

qitlli 104010 

025112 000014 

025114 004537 

025120 005337 

025124 001354 



020456 

021276 



020214 

002160 



001750 002160 

mm 155! 

003052 1551 



155160 
46 



IS! 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 

MOV 

SB? 

MOV 

JSR 
READ 

JSR 

ESC&PE 

EMT 

.WORD 

JSR 

DEC 
BNE 



PC/HDHOME 



CSSXIT 
L10044- 



C$BSEG 

!1000.,TMP0 
-5f?8.,«RLMP 
BUF,gRLBA 

R5/LDFUNC 



R5# WTCRDY 

SEG 

CSESCAPE 
10000$-. 

R5,CHERR 

TM?6 
1$ 



;heads over track o 
;heads go home okay 



;%%START OF SEGMENTtt 



/LOAD DISK ADDRESS 
>SET WORD LENGTH 
;SET BUS ADDRESS 

;LQAD THE FUNCTION IN NEXT WORD 

jread 

;hait for controller ready 
icheck for fl:loe, else exit seg 



;CHECK CNTLR FOR ERRORS 



BLY ROUTINES 
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104005 
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025130 104001 



025132 



15:35 PAGE 1-45 
READ FUNCTION 



C$ESEG 



;%%ENb OF SEGMENT*! 
;**END OF TEST** 



EMT 

**TEST 



**TEST 15 

ENDSEG 

10000$: 

EMT 

ENDTST 
L10044: 

. SBTTL 
BGNTST 
STARS 

• . *************************************************************** 

;CHECK OF THE READ FUNCTION UNDER INTERRUPT CONTROL, WE WILL 

;ISSUE A READ HEADER TO GET POSITION AND THEN READ 

;A FULL SECTOR WAITING FOR THE INTERRUPT. CHECK FOR 

/ERRORS ON INTERRUPT. 

STARS 

• j ************** ******** ««****«**« ****************************** * 



SEQ 0075 



CSETST 

16** - READ FUNCTION INTERRUPT 

;**START OF TEST** 



811 



025226 
025232 



0252 



004737 021356 



104032 
000106 



104004 

005037 
005077 
012777 
012777 

nun 
mm 

004537 

104006 

012700 
104041 

005737 
001004 



104462 
000023 
010607 
014244 

104006 



002144 
155064 

177600 155060 
003052 155046 

000000 
020456 
021276 

000340 
002144 



1$: 



JSR 

CKERFG 
EMT 
.WORD 

BGNSEG 

EMT 

CLR 
CLR 

MOV 
MOV 

SETPRI 
MOV 
EMT 
JSR 

READ! INT 

JSR 

CKLOOP 
EMT 

SETPRI 
MOV 
EMT 

TST 
BNE 

ERRDF 
TRAP 
.WORD 
.WORD 
.WORD 
CKLOOP 
EMT 



PC/HDHOME 



CSEXIT 
L10045- 



C$BSEG 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



INTFLG 

#BUF,§R 



IRLMP 
.BA 



PRIOO 
PRI00,R0 
JSSPRI 
R5,LDFUNC 
EN 

R5, WTCRDY 

SCLP1 
PRI07 
PRI07,R0 
SSPRI 

INTFLG 

1$ 

19.,EM4,ERR0 
T|ERCODE 

EM4 
ERRO 

CSCLP1 



;%%START OF SEGMENT!! 



;CLEAR INTERRUPT INDICATOR 
;SET DISK ADDRESS 
;SET UP WORD COUNT 
;SET UP BUS ADDRESS 



^PRIORITY TO 



#load the function in next word 
;read under interrupt 
;wait for interrupt 



;PRIORITY TO 7 



?DID INTERRUPT OCCUR? 
;YES-BRANCH NO-REPORT 



;READ DID NOT INTERRUPT 



>CHECK FOR LOOP 



ASSEMB 
CZRLBB 
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15:28 **TEST 16** - READ FUNCTION INTERRUPT 



L 



ll 



025246 004537 

ipjij 104005 
025254 104001 

025256 
025256 



025256 



020214 



10000$: 



JSR R5/CHERR 
ENOSEG 



JCRECK CNTLR FOR ERRORS 

>%%END OF SEGMENT! t 



ENDTST 
L10045: 



EMT 



C$ESEG 



;**END OF TEST** 

EMT C$ETST 
•SBTTL **TEST 17** - CHECK READ NPR DIRECTION 



BGNTST 



;**START OF TEST** 



STARS 

..*************************************************************** 
;CHECK THAT THE READ FUNCTION ACTUALLY READS (INTO MEMORY) 
/HE WILL WRITE A PATTERN INTO MEMORY AND THEN ISSUE 
;A READ TO OVERLAY THAT PATTERN. AFTER THE READ 

' " ,E IF THE WRITTEN PATTERN HAS CHANGED. 

E IT AGAIN AT THE SAME SECTION AFTER 



>WE CHECK TO SEL 

;IF NOT WE ISSUE _ _ 

;HAVING MODIFIED OUR PATTERN IN MEMORY £SINCE f jjERE 



;ONE CHANCE THAT THE DISK COULD HAVE 
;THE SECOND READ WE CHECK THE BUFFER 
;NO CHANGED WE REPORT AN ERROR 



AGAIN. 



IS 

AFTER 



STARS 



*** ** ********* ************ ************** «t«Aft**«ftftft«[ft»ft**«ftftft 



65 

k 

872 




021356 



J?|llf 

mn 

002160 
154712 

mm 

003052 
020456 
021276 



002160 



154706 
154674 

002166 



1$: 

2$S 



104010 
000054 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 

MOV 
CLR 
MOV 
MOV 
MOV 
DEC 
BNE 
CLR 
MOV 
MOV 
MOV 

JSR 

READ 

JSR 

ESCAPE 
EMT 

.WORD 



PC,HDHOME 

CSEXIT 
L10046-. 



C$BSEG 



;heads over track o 
jheads go home okay 



Im?! 456#? 



MPJ ™ P0 
TMP0,<R0)+ 

n 

LDA 

BUF/GDD AT 

R5,LDFUNC 

R5#WTCRDY 
SEG 



;%%START OF SEGMENTtt 



;SET PATTERN TO WRITE 
JCLEAR PASS INDICATOR 
;SET UP BUFFER BEGINNING 

;WRITE BUFFER 
;D0NE?7 
- M " GO BACK 

D DISK ADDRESS 

WORD COUNT 

>LOAD BUS ADDRESS 
IFOR ERROR PRINT 

;LOAD THE FUNCTION IN NEXT WORD 

;read 

JWAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE, ELSE EXIT SEG 
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• CHECK READ NPR DIRECTION 



1882 
1883 

4 

1885 

m 

1890 



1894 
1895 

181? 

i m 

(5) 



1383 

\m 

1908 
1909 

Ml 

im 

M 

1916 
1917 

Ml 



025374 
025400 
025400 
025402 

025404 
025410 
025414 



turn 

025424 
025430 
025434 

025436 
025436 
025440 
025442 
025444 

025446 

811446 
025446 
025450 
025450 
025450 



025452 
025452 



025452 



025452 
025456 
025464 
025466 

025470 
025470 

025472 
025476 



004537 020214 



104010 
000044 



012702 

mm 



005737 
001005 

005237 
005137 
000725 



104462 
000024 
010646 
014636 



104005 
104001 



004737 

mm 

104004 

mm 



003052 
002160 



002162 



002162 
002160 



021356 



mm 



4$: 



5$: 



6$: 



10000$: 

ENDTST 

L10046: 



JSR 

ESCAPE 
EMT 

.WORD 

MOV 
CMP 



TST 

BNE 

INC 
COM 
BR 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



ENDSEG 
EMT 



R5/CHERR 

SEG 

S888S£f 

BUF,R2 
R2)+,TMP0 



If 1 

TMP1 
TMPO 

1$ 

20.,EH5 £ ERR9 

TjjEftCODE 

EM5 
ERR9 



C$ESEG 



C$ETST 



**TEST 18** 



-SBTTL 
BGNTST 
STARS 

.«**************************** 
;CHECK THAT THE RLBA WILL INCR 
;THE RLBA SHOULD CONTAIN "BUF 
;READ. 
STARS 

• • **************************** 



ICHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE# ELSE EXIT SEG 



;SET TO START COMPARING DATA 
;DID DATA CHANGE? 
;YES # CHECK FOR END 

;DATA DIDN'T CHANGE* CHECK 
;IF 1ST OR 2ND TIME? 
;2ND-REPORT 1ST-TRY AGAIN 

;INC PASS COUNT 
;COMPLIMENT PATTERN 
;G0 DO IT AGAIN 

;READ DID NOT MODIFY MEMORY 



;%%END OF SEGMENT%% 
;**END OF TEST** 

INCREMENT OF RLBA ON READ 

;**START OF TEST** 

*********************************** 
EMENT WITH THE READ 
+256." AFTER A FULL SECTOR 

*********************************** 



154540 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 

CLR 
MOV 



PCHDHOME 

EiSJB-. 



C$BSEG 



;HEADS OVER TRACK 
/HEADS GO HOME OKAY 



flRLDA 



BUF/ @RLBA 



}Sl 



;%%START OF SEGMENT%% 



UP DISK ADDRESS 

UP BUS ADDRESS 
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177600 

mni 

020456 
021276 



020214 
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**TEST 18** - PROPER INCREMENT OF RLBA ON READ 



SEQ 0078 



54536 



mm mm 



004737 021356 

104032 
""114 



104004 



MOV 
MOV 
ADD 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
CMP 
BEQ 

ERRDF 
TRAP 
• WORD 

.WORD 
.WORD 



»SBTTL 

BGNTST 

STAR 
;;** 

;che 

>FUL 



ISt 

10000$: 

ENDTST 
L10047: 



ENDSEG 

EMT 



RLMP 

ddIt 

R5,LDFUMC 

R5, WTCRDY 

SEG 

CSESCAPE 

10000$-. 

R5,CHERR 

SEG 

Id§aI # gSdIt 
i$ 

21.,EM6,ERR4 

TSEkCDDE 



C$ESEG 



;F0RM EXPECTED BOS ADDRESS 



>WORD COUNT 

«RM EXPECT 
TER READ 

;LOAD THE FUNCTION IN NEXT WORD 

;READ 

;WAIT FOR CONTROLLER READY 
JCHECK FOR FLtLOE, ELSE EXIT SEG 



JCHECK CNTLI 
JCHECK FOR FLSLOE, I 



FOR ERRORS 
LSE EXIT SE 



;read *RLBA . _.. . ... 

;DID *BA" INCREMENT 

I YES, — - - - 



R PRESENT ADDRESS 
ROPERLY? 



continue 
;ba did not increment properly 



C$ETST 
**TEST 19** - PROPER 



;t%END OF SEGMENTtt 
;**EMD OF TEST** 



INCREMENT OF RLDA ON READ 

;**START OF TEST** 



CHECK THAT THE RLDA 

.FULL SECTOR READ, WL ^ 

;OUT WHERE WE ARE, THEN ISSUE A READ AFTER 
;THE READ THE RLDA SHOULD BE RLDA (START) ♦ 1 
STARS 



INCREMENTS BY ONE AFTER A 
f I?§T_READ_A .HEAQER^TO FIND 



PC/HDHOME 



JSR 

CKERFG 
EMT 

.WORD 

BGNSEG 
EMT 



CSEXIT 

L10050- 



C$BSEG 



;heads over track o 
;heads go home okay 



;%%START OF SEGMENTtt 



ASSEMBLY ROUTINES 
CZRLBB.P11 22-HOV-78 



m 

1969 



J|70 



71 



025672 
025674 



025724 
025724 

mm 

025732 
025734 



025736 



025740 



025740 
025744 
025752 
025754 



104010 

000040 



004537 020214 



104010 
000030 

013737 
023737 
001404 

04462 

mn 

014410 



104005 
104001 



004737 

mm 



mm 



154406 




30AU052) 22-NOV-78 
**TEST 19** 
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• PROPER INCREMENT OF RLDA ON READ 



SEQ 0079 



CLR 
MOV 
INC 
MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
CMP 
BEQ 

ERRDF 
TRAP 
.WORD 
.WORD 
. WORD 



1$: 



10000$: 



ENDTST 
L10050: 



ENDSEG 
EMT 



GDDAT 

GDDAT, gRLDA 
GDDAT 

#-128.,ftRLMP 
#BUF, 0KLBA 

R5,LDFUNC 

R5, WTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5,CHERR 
SEG 

CSESCAPE 
10000$-. 

E. DA,BDD AT 

GDDAT, BDDAT 
1$ 

22.,EM7,ERR4 

TSERCODE 

22 

EM7 

ERR4 



C$ESEG 



J SETUP 
;CREAT 

;W0RD i 
; SETUP 



/READ 
; WAIT 
;CHECK 



DISK ADDRESS 
E EXPECTED SECTOR 
COUNT 
BUS ADDRESS 

;LQAD THE FUNCTION IN NEXT WORD 

FOR CONTROLLER READY 
FOR FL:LOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



?READ 
;DID S 

;yes, 



DISK ADDRESS 

ECT _ ~ 



TOR INCREMENT PROPERLY 
BRANCH NO, REPORT ERROR 



;DISK ADDRESS DID NOT INCREMENT 



;%%END OF SEGMENTtt 
;**END OF TEST** 



C$ETST 

.SBTTL **TEST 20** - FORCE HEADER NOT 

BGNTST 

STARS 

• . ************************************ 
;0ORCE HEADER NOT FOUND ERROR TO OCCUR 
;BY SETTING SECTOR 40 OF THE RLDA AND 
4Q D0ES NQT EXIST QN TH 

NT FOUND SHOULD SET. 



;READ. SECTOR 
JTHEREFORE HDR 
STARS 



FOUND WITH READ 
;**START OF TEST** 



*************************** 

. THIS IS DONE 
ISSUING A 
E RL01 PACK 



. *************************************************************** 



JSR 

CKERFG 
EMT 

. WORD 

BGNSEG 



PCHDHOME 

CSEXIT 
L10051-. 



;heads over track o 

/HEADS GO HOME OKAY 



; ttSTART OF SEGMENTtt 



ASSEMBLY ROUTINES 
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MACY11 30AU052) 22-NOV-78 15:35 PAGE 1-50 

15:28 **TEST 20** - FORCE HEADER NOT FOUND WITH READ 



188^ 

2008 026002 



202 
202 



2030 

for 



(3) 



2009 0266 



2 004537 

8 mm 



026dl1 104010 
16 000036 



0260 



6834 oiPP 

001404 



026020 

026034 ^ 

026042 00140 

026044 

ouqtl i8ooS? 

H mm mm 

20 026054 



2024 0260 1 



02.6054 
6054 
- 3 6054 104005 
036056 
026056 
026056 104001 



026060 
1 026060 



026060 

mm 



020456 
021276 



m 



litiii 



002160 

88llt8 



004737 021356 

104032 
000142 



104004 



EHT 



MOV 

MOf 
MOV 

JSR 

READ 

JSR 

ESCAPE 
EMT 
a WORD 

MOV 
BIC 
CMP 
BEQ 

ERRDF 
TRAP 

• WORD 

• WORD 

• WORD 



1$: 



.SBTTL 
BGNTST 



C$BSEG 



RLDA 
RLBA 
LMP 



RS/LDFUNC 

R5#WTCRDY 
SEG 

csescape 

10000$-. 




;INSURE NOT TO FIND HEADER BY 
;SETTING SECTOR 40 OF CYL. ADDR. 
;WORD COUNT 

;LQAD THE FUNCTION IN NEXT WORD 

;R|AD 



. FOR CONTROLLER READY 
CK FOR FLsLOE, ELSE EXIT SEG 



>GET RLCS 
JSAVE ERROR BITS 
12IBIT10 £ TMP0 ;HDR NOT 
/YES/ CONTINUE 



FOUND SET. 



10000$: 

ENDTST 

L10051: 



ENDSEG 
EMT 



C$ESEG 



,ERR0 ^HEADER NOT FOUND MOULD NOT SET 



;%%END OF SEGMENT%% 
>**END OF TEST** 



C$ETST 



**TEST 21** 



FORCE HEADER NOT FOUND WITH READ INTERRUPT 
;**START OF TEST** 



STARS 

• . ********************************** ***************************** 
;TEST THAT HEADER NOT FOUND ERROR WILL GENERATE AN INTERRUPT 
;ON OCCURANCE. HEADER NOT FOUND WILL 



NTE 

>ON OCCURANCE. HEADER NOT FOUND WILL BE FORCED BY SETTING 
;SECTOR 40 OF RLDA AND ISSUING A READ 
STARS 

. . *************************************************************** 



JSR 

CKERFG 

EMT CSEXIT 

-*"052- 



BGNSEG 
EMT 



PCHDHOME 

CSEXI 
WORD L1005 

C$BSEG 



;heads over track o 
;heads go home okay 



;%%START OF SEGMEM T%% 
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15:28 **TEST 21** - FORCE HEADER NOT FOUND WITH READ INTERRUPT 



104005 
104001 



002226 
001777 
112000 



154126 
154116 
154114 



002160 
002160 
002160 



2$: 



2078 



026240 



1$: 

10000$: 

ENDTST 
L10052: 



-SBTTL 
BGNTST 



SETPRI 
MOV 
EMT 

CLR I 
MOV 
MOV 
MOV 



PR 1 00 
PRI00/R0 
SPRI 
TFLG 



i40.,§I 
BUF £ | 
-i,m 



RLDA 
RLBA 
LMP 



JSR R5/LDFUNC 
READ I INTEN 



JSR 
CKLOOP 
EMT 

SETPRI 

MOV 

EMT 

TST 

BNE 

ERRDF 
TRAP 

• WORD 

• WORD 
.WORD 



MOV 
BIC 
CMP 
BEQ 

ERRDF 
TRAP 
.WORD 
. WORD 
• WORD 



ENDSEG 
EMT 

EMT 

**TEST 



R5,WTCRDY 

CSCLP1 
#PRI07 
|PRI07 # R0 
C$SPRI 

INTFLG 

2$ 

24.,EM43,ERR0 
T|ERCODE 

EM43 
ERRO 



;CLEAR INTERRUPT OCCURANCE FLAG 
;INSURE NOT TO FIND HEADER BY 
/SETTING SECTOR 40 OF CYL. ADDR. 

;word count 

;load the function in next word 

;read 

;WAIT FOR CONTROLLER READY 



;DID INTERRUPT OCCUR 
;YES 



ESCAPE SEG 

EMT CSESCAPE 

.WORD 10000$-. 



;HNF DID NOT INTERRUPT 



;CHECK FOR FL:LQE/ ELSE EXIT SEG 



E.CS/TMPO >GET RLCS 

#1777,TMP0 ; SAVE ERROR BITS 

#BIT15IBIT12!BIT10/TMP0 ;WDR NOT FOUND SET. 
1$ ;YES, CONTINUE 

25. £ EM10/ERR0 
T|ERCODE 

EM10 
ERRO 

; WHEN FORCED 

;%*END OF SEGMENT) % 
;**END OF TEST** 



C$ESEG 



C$ETST 

22** - CHECK HEADER COMPARE LOGIC 

;**START OF TEST** 
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- CHECK HEADER COMPARE LOGIC 



SEQ 0082 



026240 



mm 
mm 
inn 



021356 




0( 

000004 

mm 

000100 



002162 

mm 

mm 

153652 



It* 



, CHECK THE HEADER COMPARE LOGIC WORKS. OP TO THIS POINT ME 
;KNOW THAT THE LOGIC FUNCTIONS PROPERLY BUT NOH HE MILL 
;CHECK ALL THE BITS IN THE HEADER WORD, FOUR PATTERNS 
;ARE USED A WALKING 1, GROWING 1, WALKING 0/ GROWING 0. A SEEK 
)IS ISSUED BEFORE EACH READ TO INSURE WE ARE ON THE PROPER 
;TRACK. ONCE WE ARE ON THE RIGHT TRACKWE LOAD THE RLDA 
;AND ISSUE THE READ* UPON COMPLETION WE WlLLCHECK FOR ERRORS 
;WE THEN LOAD THE COMPLIMENT PATTERN INTO THE RLDA 
^EXPECTING A HEADER NOT FOUND TO SET 
STARS 



*************************************************************** 



l$s 



JSR 

CKERFG 
EMT 

« WORD 

BGNSEG 

EMT 

SETPRI 

MOV 
EMT 
MOV 

BGNSEG 
EMT 

JSR 

RDHDR 

JSR 

ESCAPE 
EMT 

.WORD 

JSR 

ESCAPE 
EMT 
• WORD 

MOV 

BIC 

MOV 

MOV 

BIC 

SUB 

BCS 

BIS 

BR 

NEG 

BIS 

BIT 

BEQ 



PCHDHOME 

CSEXIT 
L10053-. 



C$BSEG 

fPRI07 
fPRI07,R0 
CSSPRI 
#HDRTAB/ R3 

CSBSEG 

R5/LDFUNC 

R5,WTCRDY 
SEG 

CSESCAPE 
10001$-. 

R5# CHERR 

SEG 



CSESCAPE 
10001$-. 
E.MP,TMP1 

#177.TMP1 

Ii#|rlda 

#177JtmP^ 

TMPi;TMP2 
2$ 

|SIGN,gRLDA 

tSp2 

TMP2# @RLDA 
|RHHS,(R3) 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



I ttSTIRT OF SEGMENT ft 

;priority to 7 
;get list start 

;l%START OF SEGMENT!* 



;LOAD THE FUNCTION IN NEXT WORD 
;READ HEADER 

;WAIT FOR CONTROLLRE READY 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



/read and save header 

; clear out sector and h.s. 
;setup marker for seek 
/get header pattern 
;clear out sector and h.s. 
^calculate difference to seek 
;branch for seek out 
/seek towards spindle 
;go put in difference word 
;we have to negate difference 
;set in difference word 
;do we want head select as o? 
;yes/ skip over setting h.s. 
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**TEST 22** - CHECK HEADER COMPARE LOGIC 



SEQ 0083 



26610 
26614 
26616 



2777 

004537 
000014 
004537 



150 

16' 



153460 



my- 1 



153622 



4$: 



002170 
002170 

002166 
002170 



5$: 



153452 

77 153446 

003052 153434 

020456 

021276 



BIS 
JSR 
SEEK 



JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT 

• WORD 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

RDHDR 

JSR 

ESCAPE 
EMT 
. WORD 

JSR 

ESCAPE 
EMT 
. WORD 

MOV 

BIC 
MOV 
BIC 

CMP 
BEQ 

ERRDF 
TRAP 
.WORD 
.WORD 

.WORD 

ESCAPE 
EMT 
. WORD 

MOV 
BIC 
MOV 
MOV 

JSR 
READ 

JSR 



#DAHS £ gRLDA 
R5/ LDruNC 



R5/WTCRDY 

SEG 

CSESCAPE 
10001$-. 

R5/CHERR 

SEG 

CSESCAPE 
10001$-. 

R5/WTDRDY 

SEG 

CSESCAPE 
10001$-. 
R5,LDFUNC 

R5# WTCRDY 
SEG 

CSESCAPE 
10001$-. 

R5/CHERR 

SEG 

CSESCAPE 

10001$-* 

E.MP.BDDAT 
SECMSK/BDDAT 
(R3) *GuDAT 
SECMSKf GDDAT 
GDDAT/BDDAT 
5$ 

27./EM11/ERR4 

T|ERCODE 

EM11 
ERR4 

SEG 
SES 

5001$- 



CSESCAPE 

100" ' 



-1/gRLMP 

BUF/@RLBA 

R5/LDFUNC 
R5/WTCRDY 



;SET HEAD SELECT TO ONE 

;load the function IN NEXT WORD 

;SEEK 

;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LQE# ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE# ELSE EXIT SEG 



;WAIT FOR DRIVE READY 

;CHECK FOR FL:LOE, ELSE EXIT SEG 

/LOAD THE FUNCTION IN NEXT WORD 
/READ HEADER (VERIFY SEEK) 
;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOEs ELSE EXIT SEG 



5CHECK CNTLR FOR ERRORS 
;CHECK FOR FL : LOE/ ELSE EXIT SEG 



!HDER..FQR_COMPARE 



;READ HEADER 

;SAVE CYLINDE _ 

;GET EXPECTED HEADER 

;SAVE CYLINDER FOR COMPARE 

/SEEK END UP OKAY 

?YES, CONTINUE 

/SEEK INCORRECT 



;CHECK FOR FL:LOE, ELSE EXIT SEG 



;SET UP DISK ADDRESS 

;WORD COUNT 
;BUS ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

;READ 

;WAIT FOR CONTROLLER READY 
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170 



I 

II! 

2191 



J 

nil 

P 

||oo 



26646 
26654 



mm 

004537 

him 
mm 



26742 



104006 

mm 
11 



mm 



0203 



1402 
0137 



104005 
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CHECK HEADER COMPARE LOGIC 



020214 



112000 



ii;s 



002660 
026274 



mn 4 




8$: 



002160 
002170 



6$: 



7$! 

10001$: 



027012 



JSR 

ESCAPE 

EMT 

.WORD 

MOV 
COM 
MOV 
MOV 

JSR 
READ 

JSR 

ESCAPE 
EMT 
.WORD 
MOV 

BIC 
CMP 
BEQ 
JSR 

CKLOOP 
EMT 

CMP 

BEQ 

MOV 
MOV 
COM 

ERRDF 
TRAP 

• WORD 

• WORD 
.WORD 

ESCAPE 

EMT 

.WORD 

TST 

CMP 

BEQ . 
JMP 



ENDSEG 
EMT 

ENDSEG 



R5,CHERR 

SEG ;CHECK 
CSESCAPE 
10001$-. 

-l,gRLMP 

BUF,gRLBA 

R5/LDPUNC 

R5, WTCRDY 
SEG 

CSESCAPE 
10001|jj. 

I|lT15lBIT12!BITl 
R5,CHERR 

C$CLP1 

|BIT15IBIT121BIT10,TMP0 



;CHECK FOR FL:LOE, ELSE EXIT SEG 



BDDAT 



;CHECK CNTLR FOR ERRORS 
FOR FLSLOE, ELSE EXIT SEG 



;SET OP DISK ADDRESS AS 
{COMPLIMENT TO CAUSE HDR NT FND 
;WORD COUNT 
;BUS ADDRESS 

JLOAD THE FUNCTION IN NEXT WORD 

;READ 

; WAIT FOR CONTROLLER READY 
;CHECK FOR FLSLOE/ ELSE EXIT SEG 



;GET CS 

jSAVE ERROR BITS 



;SET UP DATA FOR ERROR 
;PRINT OUT 



28.,EM12,ERR4 

T|ERCODE 

hi 

SEG 

CSESCAPE 
10001$-. 

R3,#HDREND 

7$ 
1$ 



;HDR NOT FOUND WOULD NOT SET 



;CHECK FOR FLSLOE, ELSE EXIT SEG 



;GET NEXT PATTERN 
; AT END? 

;yes, exit test 
;no, go back 



c$eseg 



;%%END OF SEGMENT*! 



;%%END of SEGMENT%% 



ASSEMBLY ROUTINES 
CZRLBB.P11 22-NOV-78 



MACY11 30AC1052) 
15:28 * 



Ml 19 



m 
II 

! 

2214 

111 



027016 
027016 



027016 



~7030 
7032 



0|7030 



104005 



104001 



004737 021356 



104032 
000156 
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"TEST 22** - CHECK HEADER COMPARE LOGIC 



10000$: 



ENDTST 

L10053S 



•SBTTL 
BGNTST 



C$ESEG 

;**END OF TEST** 
EMT CSETST 
*TEST 23** - CHECK MULTIPE SECTORS ON READ 

;**START OF TEST** 



; VERIFY THAT MULTIPLE SECTORS CAN BE READ, WE WILL CHECK 
;THAT THE RLDA INCREMENTS PROPERLY. 
STARS 

..**************************** 



************************************ 



JSR 

CKERFG 

EMT 

.WORD 



PC/HDHOME 



CSEXIT 
L10054- 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



m 

m 
w 



WW 



027034 
027040 

0^7^44 



88181? 8831*3 



104004 



(3) 




002170 
002166 



1$: 



104462 



CLR 
CLR 



BGNSEG 
EMT 



MOV 
BIS 
MOV 
ADD 
MOV 
MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
CMP 
BEQ 

ERRDF 
TRAP 



TMPO 
TMP1 



C$BSEG 



TMP1, GDD AT 
TMP0,GDD AT 
GDDAT,»RLDA 

2, GDD AT 

BUF,gRLBA 

-129.,gRLMP 

R5,LDFUNC 

R5,WTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5,CHERR 
SEG 

CSESCAPE 
10000$-. 

E. DA, BDDAT 
BDDAT, GDDAT 

29.,EM14,ERR4 

T$EkCODE 



;CLEAR LOCATIONS 

;%%START OF SEGMENT%% 



;GET CYLINDER 
;GET SECTOR 

;SET DISK ADDRESS-SECTOR 

5SET EXPECTED + 2 

>SET BUS ADDRESS 

;WORD COUNT-SECTOR+1 WORD 

;LOAD THE FUNCTION IN NEXT WORD 

/READ 

;WAIT FOR CONTROLLER READY? 
KHECK FOR FL: LOE, ELSE EXIT SEG 



2CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;READ DISK ADDRESS 

;IS DISK ADDRESS CORRECT 

;YES, BRANCH NO, REPORT ERROR 



;DA DID NOT INCREMENT 



ASSEMBLY ROUTINES 

CZRLBB«P11 22-NOV-78 



000035 

mm 



027160 



027212 



104010 
000016 



104005 



104001 



MACYll 30A(1052) 
15:28 * 



mm 



002160 
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■ CHECK MULTIPE SECTORS ON 



SEQ 0086 



2$: 



10000$: 



ENDT! 

lioo; 



.WORD 


29 


. WORD 


EM14 


.WORD 


ERR4 


ESCAPE 


SEG 


EMT 


CSESCAPE 


• WORD 


10000$-« 


INC 


TMPO 


CMP 


^46/TMPO 


BNE 




ENDSEG 




EMT 


CSESEG 


EMT 


C$ETST 



KHECK FOR FL:LOE/ ELSE EXIT SEG 



;next sector? 

;OONE? 

;no, go back 



;««END OF SEGMENTtt 

>**END OF TEST** 



******** 



;CHECK THAT WE CAN FORCE A HEADER NOT FOUND AT THE 
;END OF A TRACK DOING A MULTIPLE SECTOR READ. WE 
;SET UP TO READ TWO SECTORS STARTING AT SECTOR 39 
;WE SHOULD TRANSFER 128 WORDS THEN ABORT WITH A 
;HEADER NOT FOUND FOR SECTOR 40 
STARS 

..******************* *********************************** ********* 



027212 



»SBTTL **TEST 24** 
BGNTST 



- FORCE HDR NT FND AT END OF TRACK 

;**START OF TEST** 




004737 021356 



04010 
00054 

am 



m 

003052 
020456 

021276 



152774 

152762 



turn mm 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 

MOV 

MOV 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 
EMT 

-WORD 

MOV 
BIC 



PC,HDHOME 



CSEXIT 

L10055- 



C$BSEG 

#39.,GDDAT 
GDDAt,gRLDA 
#-129.;flRLMI 
|BUP,gRLBA 



„ UF-flR 

65/LuFUNC 

R5/WTCRDY 

SEG 

CSESCAPE 
10000$-. 

E.CS X BD 

#1777/8 



;HEADS OVER TRACK 

;heads go home okay 



;%%START OF SEGMENTtt 

;CREATE LAST SECTOR 
;LQAD DISK ADDRESS 
/WORD COUNT 
;B0S ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

;read 

;WAIT FOR CONTROLLER READY 
KHECK FOR FL:LOE# ELSE EXIT SEG 



;read CS 

;SAVE ERROR BITS 



ASSEMB 

CZRLBB 



LY ROUTINES 

.Pll 22-NOV-78 



spy 

027324 



MACY11 30AC1052) 22-NOV-78 

-- **TEST 24** 



027332 
027340 

027342 
027342 
027344 

022346 
027350 



027356 
027356 



027356 



004 
104006 



022737 
001404 



I8oO§6 
011636 
014244 



104001 



15:28 
112000 
020214 
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■ FORCE HDR NT FND AT END OF TRACK 



SEQ 0087 



002170 



112000 002170 



4$: 



CMP 

BEQ 
JSR 

CKLOOP 
EMT 

CMP 
BEQ 

ERRDF 
TRAP 

• WORD 
. WORD 

• WORD 



J112000/BDDAT 
R5/CHERR 



|U2000,BDDAT 



l$: 






ENDSEG 


10000$: 


EMT 


ENDTST 




L10055: 




EMT 


•SBTTL 


**TEST 


BGNTST 




STARS 





C$CLP1 

30./EM23/ERR0 
TjjjERCODE 

EM23 
ERRO 



C$ESEG 
C$ETST 



;hdr not found set? 
;yes, continue 



;header not found did not set 



;ttEND OF SEGMENT!! 
;**END OF TEST** 



;**START of test** 



..****#* ******************************************** ************* 
;f ORCE A NON-EXISTANT MEMORY ERROR/ 
;WE SET THE RLBA TO EQUAL THE 

;LAST ADDRESS IN MEMORY AND ISSUE A READ. THE 
|READ SHOULD ABORT AFTER ONE WORD TRANSFERRED 

• . *************************************************************** 



027356 

mm 

027372 

027374 
027374 



004737 021356 

104032 
000076 



JSR PC/HDHOME 
CKERFG 

EMT CSEXIT 

.WORD L10056-. 

BGNSEG 

EMT C$BSEG 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



;ttSTART OF SEGMENTtt 




IIP 

177600 
020456 



mm 

152624 



MOV 

MOV 
CLR 
MOV 
JSR 
READ 



H177774 € fRLBA 
#BA16IBA17,XME 

|RLDA 

lsJZ8M«? tHP 



;LEAD BA 

;SET EA BIT 

JLOAD DISK AVAILABLE 

;W0RD COUNT 

/load the function in next word 

;read 



ASSEMBLY 
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11 22-HOV-78 15:28 **TEST 25** - FORCE NON-EXISTANT MEMORY ERROR 



m 



027440 

ol?lio 

027452 

mm 

027456 
027460 

027462 

mil 



004537 
0000^6 

mm 

mm 
mix 

mm 



021276 



020000 002226 



3$: 



JSR 

ESCAPE 

EMT 

.WORD 

BIT 
BHE 

ERRDF 
TRAP 

• WORD 

• WORD 

• WORD 

ESCAPE 

EMT 

.WORD 



R5# WTCRDY 

SEG 

CSESCAPE 
10000$-. 

||XM # E.CS 



fl"' 

EM24 

ERRO 



EM24,ERR0 

CODE 



SEG 
CSESCAPE 
10000$ 



;WAIT FOR CONTROLLER 

;CHECK FOR • FL:LOE, ELSE EXIT SEG 



;did nxm set? 
;yes, continue 



;nxm did not set 



;CHECK FOR PL:LOE, ELSE EXIT SEG 



SEQ 008 



11 

1 

345 
344 

M 

2347 

II 
3131 

2354 



8 



2363 
2364 



mm 



027472 
027472 



104005 
104001 



027472 

HP 

027506 

027510 
027510 

027512 



27516 



0_ _ . 
027532 



004737 021356 



104032 
000140 



104004 

005037 002144 



if im 



000000 



177774 
012737 000060 



152512 
502262 



10000$: 



ENDTST 
L10056: 



EMT 



C$ESEG 



;%%END OF SEGMENTS! 
;**END OF TEST** 



EMT C$ETST 

•SBTTL **TEST 26** - FORCE NON-EX ISTANT MEMORY ERROR INTERRUPT 

BGNTST ;**START OF TEST** 

STARS 

;CHECK THAT WE CAN FORCE AN INTERRUPT WITH A 

>NOR-EXISTANT MEMORY ERROR. 

STARS 

. . **4ft4ft*ft*4*4***4#4ft4***444ftft444Ai*«4444*4S444444«r*4ft444*ft4*44 



JSR PC/HDHOME 
CKERFG 

EMT CSEXIT 

-WORD L10057-. 

BGNSEG 

EMT C$BSEG 



/HEADS OVER TRACK 

;heads go home okay 



;%%START OF SEGMENT** 
;CLEAR INTERRUPT OCCURANCE FLAG 



SETPRI 

MOV 

EMT 

MOV 

MOV 



#PRI00 
|PRI00,R0 

ff?7?^4^ftRLBA JPRELOAD BA 
#BA16!BA17,XMEM ;SET EA BITS 



027640 



764? 



104010 
000002 



002144 
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**TEST 26** - FORCE NON-EXISTANT 



152476 



020000 002226 



4$: 



3$: 



CLR 
MOV 

JSR 85 
READ ! INTEN 
JSR 
SETPRI 
MOV 
EMT 

ESCAPE 
EMT 
.WORD 

TST 

BHE 

ERRDF 
TRAP 
.WORD 
.WORD 
.WORD 

ESCAPE 
EMT 
.WORD 



RLDA 



BIT 
BNE 

ERRDF 
TRAP 
.WORD 
.WORD 

.WORD 

ESCAPE 
EMT 

.WORD 



MEMORY ERROR INTERRUPT 

/LOAD DA 
;WORD COUNT 

;LOAD THE FUNCTION IN NEXT WORD 

JREAD 

;WAIT FOR CONTROLLER 
;PRIORITY TO 7 



SEQ 0089 



1,ARLMP 
/LDFUNC 

" R5# WTCRDY 

C|SPRI 

IHTFLG 
4$ 

32. / EM44,ERR0 ;NO INTERRUPT W/NXM 

TSERCODE 



;CHECK FOR FL:LOE/ ELSE EXIT SEG 



; interrupt occur? 
;yes okay 



32 

EM44 

ERRO 



CSESCAPE 
10000$-. 

JNXM,E.CS 

33.,EM24,ERR0 

TSERCODE 
33 

EM24 

ERRO 

SEG 

CSESCAPE 
10000$-. 



;CHECK FOR FL:LQE, ELSE EXIT SEG 



;DID NXM SET? 
;YES, CONTINUE 



;NO NXM 



;check for fl:loe, else exit seg 



88 027644 
027644 

644 104005 
646 

_ — - 646 

057646 104001 



2388 0276 

(3) 0276 

2 \\l m\ 

(3) 0276 



im 

mi 
tin 
mi 

2399 



027650 
027650 



10000$: 

ENDTST 
L10057: 



ENDSEG 
EMT 



C$ESEG 



;%%END OF SEGMENT** 
;**END OF TEST** 



EMT C$ETST 
.SBTTL **TEST 27** - CHECK READ WRITE LOOP 
BGNTST ;**START OF TEST** 

STARS 

. . ****** ****** ********* » ************* **************************** 

Verify that the write actually writes, at this 
;time we know that the write FUNCTION GOES THRU 
;THE MOTIONS BUT WE DON'T KNOW THAT THE DATA 
; ACTUALLY GETS RECORDED ON THE PLATTER. 



MBLY ROUTINES 
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15:28 **TEST 27** - CHECK READ WRITE LOOP 



SEQ 0090 



ST ARS 

I ^ ft********************* ***********!************* ******** ********* 



424 



mi 



itn 

2441 



027650 
027654 



027742 
027744 



27760 



027776 
030002 

%m\% 

030030 

8fS8§S 



004737 

mm 



021356 




001- - . 
005077 

813??? 

mm 

004537 

000300 
004537 

mm 

12883 

mm 
mm 

mw? 

mm 

000014 
004537 

104010 

000210 

QQ4537 

mm 



104010 
O08IZI 



003052 
000200 



021276 



3$: 



152332 

mm usis 

020456 
021276 



020214 



4$: 



lPloO 152240 

mu is&6 



10$: 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 

MOV 
MOV 
MOV 

DEC 
BME 
CLR 
MOV 

MOV 
JSR 
WRITE 
JSR 

ESCAPE 
EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 

MOV 

MOV 

CLR 

DEC 

BME 

CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 
TST 
BNE 

ESCAPE 

EMT 

.WORD 

BR 



PCHDHOME 
L?8oi5-. 



C$BSEG 



P:"8i 

|125252 / (R0)4 

3$ 



R5# WTCRDY 

SEG 

C$ESCAPE 
10000$-o 

R5/CHERR 

SEG 

CSESCAPE 
10000$-. 

CSBSEG 

!BUF,R0 
mi' n 



@RLDA 

1-128. ,SRLMP 

liUFigRLBA 

R5,LDFUNC 

R5, WTCRDY 

SEG 

CSESCAPE 
10001$-. 

R5,CHERR 
T.CRC 

8$ 
SEG 

CSESCAPE 
10001$-. 
99$ 



jEAOS 

Ieads 



OVER T? 
GO HOME 



ACK 
OKAY 



mi 



;%%START OF SEGMENT!! 



UP WRITE BUFFER 



. WORDS/ONE SECTOR 
;«PlTE PATTERN TO BUFFER 

;DOME? 

;N0# BRANCH BACK 



/nu/ i_ — _ 

;DISK ADDRESS 

;wqrd 



;BUS 



COUNT 
ADDRESS 



3LOAD THE FUNCTION IN NEXT WORD 
;WRITE THE PATTERN 
;WAIT FOR CONTROLLER READY 
>CHECK FOR FL:LOE/ ELSE EXIT SEG 



5CHECK CNTLR FOR ERRORS 
KHECK FOR FL:LOE/ ELSE EXIT SEG 

;%%start of segment!! 

;clear out buffer before 
;reading 

JCLEAR BUFFER 

;done? 

;NO, BRANCH BACK 

;LQAD DISK ADDRESS 
;wqrd COUNT/ONE SECTION 
;LOAD BUS ADDRESS 



;GO READ 



AD THE FUNCTION IN NEXT WORD 



;WAIT FOR CONTROLLER Ri 
;CHECK FOR PL:LOE, ELS! 



; A ixiT SEG 



;CHECK CNTLR FOR ERRORS 
;WAS ERROR A DCK?? 
) YES*SEE IF HE A DUMP 
;CHECK FOR FL :LOE/ ELSE EXIT SEG 



;SKIP AROUND 
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CZRLBB.P11 22-NOV-78 15:28 **TEST 27** - CHECK READ WRITE LOOP 



SEQ 0091 



2445 



005737 
001772 



016774 




104005 
104005 
104001 



002166 



016776 



8$: 



99$: 



5$: 



333$: 



9$: 



6$: 
7$: 



10001$: 



10000$: 



ENDTST 
L10060: 



TST 
BEQ 

CKLOOP 
EMT 

CLR 
CLR 
MO? 
MOV 
MOV 
MOV 
CMP 
BEQ 
MOV 
CMP 
BNE 

ESCAPE 
EMT 

• WORD 
INC 

TST 

BNE 

ERRDF 

TRAP 

.WORD 

.WORD 

• WORD 
INC 
BR 

PRINTB 

MOV 

MOV 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CKLOOP 
EMT 

TST 
DEC 
BNE 

ENDSEG 
EMT 

ENDSEG 
EMT 



T.DMP 
10$ 

C$CLP1 

CDCNT 
CHECK 
|BUF,R2 

fi|l5§2*#GDDAT 
(R2)#BDDAT 

gddat/bddat 

rLtmpi 
cdcnt/t.lmt 

333$ 
SEG 

CSESCAPE 
10001$-. 
CDCNT 

CHECK 

1L £ EM25,ERR8 
EkCODE 



5i 

EM25 
ERR8 
CHECK 
6$ 

#FRMT6,TMP1, GDDAT,BDDAT 
BDDAT,-{SP) 
GDDATWSP) 

i T FRMfi![-(^P) 
p'io } 

CS^NTB 
#12,SP 

CSCLP1 

5$ 



;DO WE STILL WANT TO CHECK IT 
;YES, CHECK FOR LOOP FIRST 

;CLEAR NUMBER WE'RE TO PRINT 

; ALLOW HEADER ON FIRST PRINT 

/COMPARE BUFFER TO CHECK WRITE 

H28 WORDS 

;SET UP EXPECTED 

;GET DATA 

;IS DATA OKAY 

?yes 4 continue 

;l0ad bad mem location 

;checked enough?? 

;no 

jcheck for fljloe, else exit seg 

;account for it 

;header or JUST DATA 
;just data 
;bad data 



;ACCOUNT FOR PRINT OF HEADER 



C$ESEG 
C$ESEG 
C$ETST 



;BUMP BUFFER POINTER 

;DONE? 

;N0, GO BACK 

;%%END OF SEGMENT%% 



;%%END OF SEGMENT** 
;**END OF TEST** 



II 



15! 



0302SO 
030250 



•SRTTL •*TIST 2§* s - CHECK SILO LUIS 

BCHfSf j'**STllf Of T1I?#* 



«1 iI x iali A glmi 



1 



004731 021356 

03@2§§ §11103 002662 



I 



mm 



6$: 

2$l 



11! 



151724 
151716 



iiii 

Will 



021276 
020214 



III - 

m m m im 



31 s 



?c Hmtsm 

mm. 

not #0itfit # i3 




II1F 



ittSfiif Of SECMEHflt 

in Ufa 

PAf f ERR 



flE*"" 

eh**- n 



MRITE PATTERH OR TO DISS 

THE P0RCTIOR 11 HIIT VORD 
ICBICK PGR PLlLOE, ILSI lilt S1G 

SCHICK 

JttSfAtf Of SECMERTtt 

SirORI RIADIiS If SACK 



READ If 1SCK 
SO 
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CfiLi§*fU 22~IOf~7§ 1SS2I **TEIf 28** - CHECK SILO LUIS 



2S§4 



020456 
©21276 

mm 



016774 



164006 



10SS 

sis 
fits 



11 II 111 

m mi *« ««• ! " 

iillil 003130 016776 

Dili) 



333$s ! 



mm 002122 

38 



g 



I 



000012 



9$S 



4$ I 



15,LDP0iC 
tMfCRDY 




;load f he purctior ir rext moid 

>CHECK POi PLsLOK, ELSE EXIf SE6 
POR ERROR! 



PLlLOE, ELSE EXIf SEC 

|8S I 5e A S??CE MARf TO CHECK IT 
|5tS, CHICK POR LOOP PIRSf 

WW™ 



ATA 

BRAHCH 

^CHECKED ER00GH7? 

POl ?1SL0E # ELSE IX IT SIS 



lACCOOif POR If 

JUST DATA 
BACK 



jACCOOBT FOR PRIRT OP HEADER 



f 



ASSEMBLY ROUTI 
CZRLBB.P11 



NES 
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MACY11 

15:28 



30AC1052) 



2584 

M 

I 



2592 
2593 

lm 

m 
mi 

118? 



030634 104006 



062737 

°°3727 
8^1317 



030636 
030644 
030650 
030656 

mm 

030660 104005 




030672 



mm 

030704 
030706 



030710 
030710 



005723 
001203 



104005 
104001 



004737 
104004 



818712 mi 

030722 012702 

IS 8is» 



n 



mm mm 

030752 005077 



000002 
002162 
002162 



021356 



000001 
000200 
003052 



003052 
177600 
151270 



002164 
000201 . 



151300 
151276 



22-N0V-78 
*TEST 28** 



EMT 



15:35 

• CHECK 



PAGE 1-64 
SILO LINES 



SEQ 0094 



10001$: 



10000$: 



ENDTST 
L10061: 



•SBTTL 
BGNTST 



ADD 
INC 
CMP 
BME 

ENDSEG 

EMT 

TST 
BNE 

ENDSEG 
EMT 

EMT 



C$CLP1 
TMP1,#129. 



;NEXT LOCATION 
;next WORD 

;DQHE 

;no, GO BACK 



;%%EMD OF SEGMENT** 



C$ESEG 

;r 3 



£R3>« 



;dgne all patterns 

; NO/ GO BACK 



C$ESEG 



;%%EHD OF segment** 
;**end of test** 



c$etst 



**TEST 29** 



CHECK THROUGHPUT OF SILO 

;**START OF TEST** 



• j ********************************************** 

>TEST THAT THE SILO OPERATES CORRECTLY, HE WILL WRITE A PATTERRN THAT CONTAINS 
;A UNIQUE PATTERN IN EACH LOCATION, WE EXPECT IT BACK IN PROPER 
SORDER, WE DO A ONE SECTOR TRANSFER 
STARS 



> ******************** 



t* ********************** ******** 



r********** 



2$: 



JSR 

CKERFG 
EMT 

« WORD 

BGNSEG 
EMT 



MOV 
MOV 
MOV 
MOV 

INC 
DEC 
BNE 

MOV 

MOV 
CLR 



PCHDHOME 
L? Ooil-, 

C$BSEG 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



;%%START OF SEGMENT** 



11$' 
BUI 
0/ 



1,R0 



!! 

#BUF# 0RLBA 



;INITIAL 1 

U28 WORDS 

;BUFFER 

;WRITE A WORD 

;NEXT PATTERN (1-128) 

;done 
;nq 

; setup to write 



12B.,gRLMP ;128 WORDS 

;DISK ADDRESS 



@RLDA 



ASSEMBLY ROUTINES 
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**TEST 29** - CHECK THROUGHPUT OF SILO 



SEQ 0095 



2604 
2605 
2606 

3 

2609 
2610 

I 



10756 



030762 

030770 
030770 
030772 

030774 
031000 
031000 
031002 



020456 
021276 



004537 
000012 
004537 

104010 
000322 



004537 020214 




151212 
151210 



002130 016776 



3$: 



10$: 
8$: 

99$: 

002166 
002164 
002162 

002170 4$: 
002166 



R5/LDFUNC 

R5# WTCRDY 

SEG 

CSESCAPE 
10000$-. 

R5#CHERR 
SEG 

CSESCAPE 
10000$-. 



#BUF# §RLBA 
1-128. ,8RLMP 
§RLDA 
R5/LDFUNC 



R5/CHERR 
T.CRC 

sIg 



#1 / GDDAT 
5bUF,TMP2 



pur t inr 
ll/TMPl 



0TMP2/BDDAT 
BDDAT/GDDAT 

6$ 

CDCNT/T. LMT 

333$ 



/LOAD THE FUNCTION IN NEXT WORD 
;CHECK FOR FL:L0E/ ELSE EXIT SEG 

JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL: LOE, ELSE EXIT SEG 

;**START OF SEGMENT** 

/CLEAR BUFFER 
;128 IN LENGTH 
;CLEAR 

;down count 
;done? 

;bus address 

;W0RD COUNT 
;DISK ADDRESS 

;load the function IN next word 

;CHECK FOR FL:LOE, ELSE EXIT SEG 



;check cntlr for errors 
;was error a dck?? 
;yes,see if we a dump 
;check for fl:loe, else exit seg 



;SKIP AROUND 

;DO WE STILL WANT TO CHECK IT 

;no 

;YES/ CHECK FOR LOOP FIRST 



/CLEAR NUMBER WE'RE TO PRINT 

;ALLOW HEADER ON FIRST PRINT 

? START GOOD AT 1 

; START OF BUFFER 

;first word 
;get word 

;CORRECT? 

;yes 



;no 



;checked enough?? 



;CHECK FOR FL: LQE/ else exit SEG 
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031320 



031320 



031320 



15S35 PIGS 1-66 

- crick throughput or silo 



333$! 



IMC 
fSf 



9$: 



6$: 



10001$: 



10000$! 

SHOTS? 
L10062: 



»SBf?L 
BGITST 



eoci? 

CHECK 



• HO 
.HO 

• HQ 

IF 

|||i?b #r 

MO? 
MOW 
NOV 



liiiooi 



,mMQ III!) D 



? account wm if 



IK, 



? account rot paiif or header 



LOOP 



EMDSBG 
EM? 

ENDSEG 

EMT 

EM? 




GDDAT 



Si lit 

JDQNE? 



C$ESEG 



C$ESEG 



C$E?Sf 



**?ES? 30** 



IttKMD OF SggMEI?%% 

ittiiD or sissigffft 

1**EID OF TEST** 

check %mn FILL 01 iSIfl 

i**s?ta? or test** 



s? 

US 



IL SECTORS (LESS THAI 128 HOROS) THE 
LL II THE REMAINING PORTION Of 

loM M ? R ?S°12S HS THIS rE * T0SE 



iHHll tfRITIIG PART 
>COHTROLLER HILL F 
;THE SECTOR HITH Z 
|HITH HORD COUNTS 
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MACY11 
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021356 



30AC1052) 22-NOV-78 1 

**?ES? 30** - 




016774 



002162 



150636 



35$: 

3$: 
33$: 



18$: 



10$: 
8$: 



5:35 PAGE 1-67 
CHECK ZERO FILL 

PC,H0HQME 

C$BSEG 

# ?MP1 
UP,R0 



ON HRITE 




TftPl,R0 

R(LgRLMP 
f ipLf 0RLBA 



R5#MTCRDY 

SEG 

CSESCAPE 
10000$-. 

R5#CHERR 
SEG 

CfSSCAPE 
10000$-* 

CSBSEG 

!BUF,R0 
li§2§ii <R0>* 

18$ 

|BUF £ §RLBA 
#-12B.,gRLMP 

Irlda 

R5,LDFUNC 

RSjtMTCRDY 
SEG 

R5,CHERR 
T.CRC 

sic 

CSESCAPE 

?«DMP 



jheads over track o 
;heaos go home okay 



lltSTART OF SEGMESSTtt 



ITE 
;ONLY GL 
IDONE HI 

Mi ii* 



RT HIT H 1 HORD 
TE ByFFERHITH 



til. 

im 



MR 

52! 

HORDS ALL ... 
G.Jp F ||ASSFER < 



25, HE*LL 
HOUGH HE "RE 



R HORD COUMT 
RLMP 



; negate for 

;stqre hord count ahay 
iset up rlba 

1load the function in next hord 
;hriTe IT 

;HAIT FOR HRITE TO FINISH 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



JCHECK CNTLF 
;CHECK FOR FLSLQE, I 



FOR ERRORS 
LSE EXIT SEG 



j%%S?ARf OF SEGMEMf %% 

;he're going to overlay buffer before 

;reading it back. 

;overlay it hith compliment 

;done? 

}HQ, KEEP GOING 
;SET UP TO READ 

•Ie?tor RDS ?0 check ZERQ FILL 

' ;LOAD THE FUNCTION IN NEXT HORD 

JHAIT TIL ME FINISH THE READ 
;CHECK FOR FL:LOE# ELSE EXIT SEG 



3CHECK CNTLR FOR ERRORS 
;HAS ERROR A DCK?? 
>YES £ SEE IF HE A DUMP 
JCHECK FOR FL:LOE, ELSE EXIT SEG 



>SKIP AROUND 

JDO HE STILL HANT TO CHECK IT 




30AC1052) 22-HDV-78 
**TEST 30** 



15:35 PAGE 1-68 
■ CHECK ZERO FILL ON WRITE 



SEQ 0098 



002166 



99$! 



4$: 



333$: 



9$: 



12$: 
6$: 



7$: 

10001$: 



BEQ 

CKLOOP 

EMT 

CLR 

CLR 

MOV 

MOV 

MOV 
CLR 
MOV 
MOV 
CMP 
BEQ 

CMP 
BNE 

ESCAPE 
EMT 
.WORD 
IMC 

TST 
BME 
ERRDF 
TRAP 
.WORD 
• WORD 
.WORD 
INC 
BR 



10$ 

CSCLP1 

CDCNT 

CHECK 

TMP1,R2 

#12§',R1 



JYES, 



25 £ GDDAT 
" AT 

DAT 



|BUF,R3 

R3)#BDD 
_DDaT/GD 

12$ 

C^CNT,T.LMT 

SEG $ 

CSESCAPE 
10001$-. 
CDCNT 



CHECK 

??.#EM27 / ERR12 

T|ERCODE 

EM27 
ERR12 



CHECK FOR LOOP FIRST 

; CLEAR NUMBER WE'RE TO PRINT 
; ALLOW HEADER ON FIRST PRINT 
;WORDS WRITTEN IN R2 
;CHECK 128 WORDS 

;SET UP BUFFER BEGINNING 

;ZERQ WORD COUNT 

;SET UP EXPECTED 

>GET WORD 

;IS WORD CORRECT? 

;YES, GO CHECK COUNTS AND REPEAT 

JCHECKED ENOUGH?? 

>CHECK FOR FLSLOE, ELSE EXIT SEG 



;N0 



; ACCOUNT FOR IT 



;HEADER OR JUST DATA 
>JUST DATA 



CHECK 
12$ 



;account for print of header 
printb #frmt9,tmp1,r3,gddat,bddat 

MOV ' 

MOV 
MOV 
MOV 
MOV 
MOV 
MOV 
EMT 
ADD 

CKLOOP 
EMT 
TST 

INC 

DEC Rl ;DONE ALL WORDS? 

BEQ 7$ JEXIT TEST 

DEC R2 ; DOME CHECKING NON-ZERO WORDS 

BGT 4$ ;N0, BRANCH BACK 

CLR GDDAT ;YES £ SET EXP'D AS ZERO 

BR 4$ ;BRANCH BACK 

;exit test 

ENDSEG ;%%END OF SEGMENT** 



BDDAT,-(SP) 

gddat;-(sp) 

R3,-CSP> 
TMP1#-(SP) 

CSPNTB 

#14,SP 

CSCLP1 



ASSEMBLY 
CZRLBB.P 



ROUTI 
11 



NES 

22-N0V-78 



MACY11 30AC1052) 
15:28 * 



IK 

mi 

2776 



031752 104005 



"mi 



031754 

mm 
mm 

031774 
031774 
031774 

mm 

031776 



104005 
104001 



031346 



000200 



22-N0V-78 
*TEST 30** 

EMT 

INC 
CMP 
BEQ 
JMP 



032000 



34$: 



10000$: 



ENDTST 
L10063: 



•SBTTL 
BGNTST 



15:35 PAGE 1-69 
■ CHECK ZERO FILL ON WRITE 

C$ESEG 

TMP1 

TMP1,#128. 

35§ 



SEQ 0099 



ENDSEG 
EMT 

EMT 

*TEST 



C$ESEG 

C$ETST 
31** - CHECK SECTOR 



?%%END OF SEGMENT** 
;**END OF TEST** 



BITS OF HEADER COMPARE 
;**START OF TEST** 



2783 
2784 

m 

2787 
2788 

I 

m 

2794 
2795 

W 

2798 

2799 
2800 

M 



032000 



032000 004737 

jjp??! 

032016 
032016 



2012 104032 
2014 000414 



032020 



032024 
032024 



104004 
005037 



032026 012 

mm m 

032042 005 



104004 

012702 



021356 



002160 



003052 
000200 
002160 



n* 

;TEST THAT ALL SECTOR BITS OF HEADER WORD CAN COMPARE 
/UNIQUELY. WE TESTED THE HEADER COMPARE LOGIC EARLIER 
;BUT THAT WAS NOT AN EXTENSIVE TEST OF THE SECTOR BITS. 
/THE TEST PROCEDURE IS TO WRITE EACH SECTOR OF TRACK 
;0 WITH THE SECTOR ADDRESS, THEN GO BACK AND READ 
;EACH SECTOR. IF ANY SECTOR HAS ANY DATA THEN THAT 
;WHICH WAS EXPECTED THEN WE HAVE AN ERROR 
ERROR PRINT OUT WILL GIVE SECTOR/ EXPECTED AND RECEIVED 

^** *********** ************************************************* 



it 



1$: 



199$: 
2$: 



JSR 

CKERFG 
EMT 

• WORD 

BGNSEG 
EMT 

CLR 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
DEC 



PC/HDHOME 



CSEXIT 
L10064-. 



C$BSEG 
TMPO 



C$BSEG 



#BUF,R2 
#128. /Rl 
TMP0/IR2)* 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



/CLEAR 



;%%START OF SEGMENT** 



;**START OF SEGMENT** 



;WRITE A PATTERN FOR THE WRITE 
;QNE SECTOR'S WORTH 
;WRITE IT 
;DONE/ 
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BNE 



15:35 PAGE 1-70 
■ CHECK SECTOR BI 



002166 



98$: 
3$! 



10$: 



8$: 



HOV 
MOV 

m 

WRITE 
JSR 

ESCAPE 

EMT 

• WORD 

INC 

CMP 

BNE 

CLR 

BGNSEG 
EMT 

MOV 
MOV 
CLR 
DEC 
BNE 

MOV 
MOV 

MOV 
JSR 
READ 
JSR 

ESCAPE 
EMT 
. WORD 

JSR 
TST 
BNE 

ESCAPE 

EMT 

. WORD 

BR 

TST 

BEQ 

CKLOOP 
EMT 



2$ 



RLMP 
BA 

DA 



!-l28. c »l 



R5 e WTCRDY 

SEG 

CSESCAPE 
10001$-. 
TMPO 

TMP0/#40. 

199$ 
TMPO 



C$BSEG 

!BUF,R2 

3$ 

TMPO/ftRLDA 
#BUF# §RLBA 

R5,WTCRDY 

SEG 

CSESCAPE 
10002$-. 

R5#CHERR 
T.CRC 

8$ 
SEG 

CSESCAPE 
||002$-. 

T.DMP 

10$ 



;CHECK NOW TO 



000200 
00217* 



99$: 



5$: 



CLR 
CLR 
MOV 
MOV 
MOV 
MOV 



C$CLP1 

SEE IF WE READ 

CDCNT 
CHECK 

TMPO/GDD AT 
#BUF,R2 
§128. ,R1 
(R2)*/BDDAT 



TS OF HEADER COMPARE 

>IF NOT# GO BACK 

;QNE SECTOR WORD COUNT 
;WRITE FROM BUF 

; SECTOR 

;LOAD THE FUNCTION IN NEXT WORD 

;NAIT FOR WRITE TO FINISH 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;NEXT SECTOR 
/ALL DONE? 
>NO GO BACK 
;CLEAR 

;%%START OF SEGMENT%% 

/CLEAR THE BUFFER FIRST 
;128 WORDS 



;GET SECTOR 
JSETUP BUS ADDRESS 

;READ A SECTOR 

;LOAD THE FUNCTION IN NEXT WORD 



JCHECK FOR FL:LOE, ELSE EXIT SEG 



5CHECK CNTLR FOR ERRORS 
;WAS ERROR A DCK?? 
;YES,SEE IF WE A DUMP 
;CHECK FOR FL : LOE/ ELSE EXIT SEG 



;SKIP AROUND 

;do we still want to check it 
;no 

;YES, CHECK FOR LOOP FIRST 



THE RIGHT SECTOR 

;CLEAR NUMBER WE'RE TO PRINT 
;ALLOW HEADER ON FIRST PRINT 
;EXPECTED DATA 
JBUFFER 
;WORD COUNT 



SEQ 0100 
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**TEST 31** - CHECK SECTOR BITS OF HEADER COMPARE 



SEQ 0101 




002170 
002130 



002130 
002122 



002122 



002170 
002166 
002160 

mm 



000012 



mm 



016776 



000050 



032432 





CMP 




BEQ 




CMP 




BNE 




ESCAPE 




EMT 




.WORD 


333$: 


INC 




TST 




BNE 




ERRDF 




TRAP 




• WORD 




.WORD 




• WORD 




INC 




BR 


9$: 


PRINTS 


MOV 




MOV 




MOV 




MOV 




MOV 




MOV 




EMT 




ADD 


6$: 


CKLOOP 


EMT 




DEC 




BNE 




INC 




CMP 




BNE 




ENDSEG 


10002$: 




EMT 




ENDSEG 


10001$: 




EMT 




ENDSEG 


10000$: 




EMT 


ENDTST 




L10064: 






EMT 


•SBTTL 


**TEST 


BGNTST 





BDDAT/GDDAT 

6$ 

CDCNT/T.LMT 

333$ 
SEG 

CSESCAPE 
10002$-. 
CDCNT 

CHECK 

3l.*EM50,ERRll 
T|EkC0DE 

EM50 
ERR11 
CHECK 
6$ 



;no 



;CHECKED ENOUGH?? 



;CHECK FOR FL:LQE, ELSE EXIT SEG 

/ACCOUNT FOR IT 

;HEADER OR JUST DATA 
;JUST DATA 



3» 

fc -(sP2 

f FRMT8/- ( 
CSPNTB 



BDDAT 
GDDAT 
TMP0# 
#FRMT 



;ACCOUNT FOR PRINT OF HEADER 
GDDAT/BDD AT 



S*P) 



#12,SP 
C$CLP1 



Rl 
5$ 

TMPO 

TMPOi 
98$ 



#40. 



C$ESEG 

C$ESEG 
C$ESEG 



;all of sector checked? 
;go back if not 
?next sector 
;done? 

;NO/ go back 

;%iend of segment%% 



;%%END OF SEGMENT%% 
;%%END OF SEGMENT%% 
;**END OF TEST** 



CSETST 
32** - WRITE CHECK NPR 



INTEGRETY 
;**START 



OF TEST** 



ASSEMBLY ROUTINES 
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15:28 **TEST 32** - WRITE CHECK NPR INTEGRETY 



2909 
2910 



mm 
mm 

032470 

032472 

032500 
032506 



2530 
2534 

2536 



004737 021356 



104032 

000372 



104004 

2700 



001374 
005077 

'"ffl 



00453 



i8o§ i8 



003052 
000200 
125252 



003052 
177600 
147534 
020456 

021276 



7 020214 



SEQ 0102 



ffl 



;CHECK THAT NPR WILL NOT INTERFERE WITH THE OPERATION OF THE 

JUMBOS. WE SET * — * — " " 

STARS 

' ******************************************** 



WE SET UP LOCATION 4 TO HANDLE THE TRAP IF IT HAPPENS. 



}} 



JSR 

CKERFG 
EMT 
• WORD 

BGNSEG 
EMT 



MOV 
MOV 

299$: MOV 

DEC 
BNE 



MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 
. WORD 
JSR 

ESCAPE 
EMT 
• WORD 



PC#HDHOME 



CSEXIT 

L10065-. 



CSBSEG 

BUF/RO 
128. ,R1 
125252, <R0)* 

299$ 

!BUF#@RLBA 
-12B./gRLMP 
RLDA 
5,LDFUNC 

R5# WTCRD Y 

SEG 

CSESCAPE 
10000$-. 
R5#CH£RR 
SEG 

f858S$£f 



/HEADS OVER TRACK 
;HEADS GO HOME OKAY 



;%%START OF SEGMENT1% 



;SETUP AND WRITE 
;128 WORDS 
; WRITE 

J DONE?? 



;LQAD BUS ADDRESS 

;W0RD COUNT 

/CLEAR DISK ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 

5CHECK CNTLR FOR ERRORS 
JCHECK FOR FL: LOE, ELSE EXIT SEG 



; VERIFY WRITE WITH READ BEFORE WRCHK 



032540 
032544 
032552 
032560 
032564 

8351?? 

032576 
032602 
032602 
032604 



005077 
012777 
012777 
004537 
000014 
004537 

104010 
000242 
004537 

104010 
000232 



104004 



147502 

003052 147472 
177600 147470 
020456 

021276 



020214 



CLR 
MOV 

MOV 
JSR 
READ 
JSR 

ESCAPE 
EMT 
. WORD 

JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 
EMT 



@RLDA 

#BUF C §RLBA 
1-128. ,§RLMP 
K5/LDFUNC 

R5/WTCRDY 
SEG 

CSESCAPE 
10000$-. 
R5/CHERR 
SEG 

CSESCAPE 
10000$-. 

C$BSEG 



;LOAD THE FUNCTION IN NEXT WORD 

;CHECK FOR FL:LOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL: LQE/ ELSE EXIT SEG 



;%%START OF SEGMENT%% 



ASSEMBLY ROUTINES MACY11 30AC1052) 
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"TEST 32** - WRITE CHECK NPR INTEGRETY 



SEQ 0103 



012746 




000340 

mm 

000003 

000010 
002142 
003052 
147372 
177600 
002166 
002134 
000002 
020764 
002166 
000201 
002000 
002166 
000144 
000200 



1$: 



000024 



021016 



002132 



002142 
021016 



147366 



147272 5$: 



6$: 



104005 



7$: 

10001$: 



SETVEC 

MOV 

MOV 

MOV 

MOV 

EMT 

ADD 

CLR 

MOV 

CLR 

MOV 

CLR 

MOV 

BIS 

JSR 

MOV 

BIS 

BIC 

MOV 

MOV 

BIT 

BNE 

WAITUS 

MOV 

EMT 

DEC 

BNE 

JSR 
ERRDF 
TRAP 
.WORD 
. WORD 

• WORD 
CLRVEC 
MOV 
EMT 

ESCAPE 
EMT 
. WORD 

TST 

BEQ 

JSR 

ERRSF 

TRAP 

.WORD 

.WORD 

• WORD 



ENDSEG 



EMT 

ENDSEG 



ERRVEC,#TRPHAN,#34Q 

#340,-(§P) 

#TRPHAN,-(SP) 

IrRVEC £ -(SP) 

#3/-(SP) 

c Iosp 
?rpfxg 

#BUF/ @RLBA 
flRLDA 

1-128. ,§RLMP 
GDDAT 

DRIVE, GDDAT 
#WRCHK,GDDAT 
k5#BEFORE 
GDDATjrB. CS 
#201,§.CS 
#OPI,B.CS 
tDDAT/gRLCS 

flOO.Jfil 
CRDY,»RLCS 



;SET UP FOR TRAP 




R5, AFTER 
0.,CRTIM,ERR5 

T$ERCODE 


CRTIM 

ERR5 

ERRVEC 

ERRVEC/RO 

CSCVEC 

SEG 

CSESCAPE 
10001$-. 

TRPFLG 

R§, AFTER 
l.,EM57,ERR0 

T$ERCODE 

EM57 
ERRO 



C$ESEG 



/CLEAR TRAP OCCURANCE 
;BUS ADDRESS 
;LOAD DISK ADDRESS 
;WORD COUNT OF 128 
;SET UP CSR TO LOAD 
;SET IN DRIVE 
;SET IN FUNCTION 
/LOAD FOR ERROR PRINTOUT 
;SET IN COMMAND 
;LOAD CRDY 
/CLEAR (BIT 10) 
;ISSUE WRITE CHECK 
>WAIT FOR CRDY 
;NPR DONE 
;YES, 6$ 
;WAIT A WHILE 

;A WHILE UP 

;no, go back 
controller timed out 

/clear vector 
;check for fl:loe, else exit seg 



;DID TRAP OCCUR? 
?NO 



/TRAP ON WRITE 



;%%END OF SEGMENT%% 

;%%END OF SEGMENT! % 



ASSEMBLY ROUTINES MACY11 
CZRLBB.PU 22-NOV-78 15:28 
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033042 
033042 



104005 
104001 
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15:35 PAGE 1-74 
■ WRITE CHECK NPR INTEGRETY 



10000$: 

ENDTST 

L10065: 

.SBTTL 
BGNTST 

STARS 

* • ****** ****************************** ******** 

;CHECK OF WRITE CHECK LOGIC UNDER FLAG MODE 

; WE WILL WRITE CHECK A FULL SEi ~~ 

I MEMORY (BUF). WE CHECK THAT Ni 
STARS 

• • ****************************************************** 



EMT C$ESEG 

>**END OF TEST** 

EMT C$ETST 

**TEST 33** - WRITE CHECK FUNCTION 

;**START OF TEST* 



********* 



CHECK A FULL SECTOR (128 WORDS) FROM 
~ 10 ERRORS OCCUR, 



********* 



ffll 

2993 
2994 
2995 



033042 

Imn 

033056 

mm 

olloli 

033072 
033076 
033100 

033102 
033110 
033116 
033122 
033126 
033130 
033134 



021356 



033144 
033144 
033146 
033150 
033150 



033152 

mm 

033172 



004737 

104032 
000214 

104004 

oi?701 08? 
012720 125 
005301 
001374 

012777 
012777 
005077 
004537 
000012 
004537 021276 

mm 

004537 020214 

mm 



005077 147070 

mm mm 

004537 020456 



PC/HDHOME 



52 
125552 



003052 
177600 
147124 
020456 



147134 
147132 



147060 
147056 



299$: 



JSR 

CKERFG 
EMT CSEXIT 
• WORD L10066-. 

BGNSEG 
EMT 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



MOV 

MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 
. WORD 
JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 

EMT 



C$BSEG 
fBUF,R0 



CLR 
MOV 
MOV 
JSR 



SRLDA 
BUF* gRLBA 
-12B.,gRLMP 
5/LDFUNC 



;**START OF SEGMENTS! 



|l^52^2j(R0)+ 

299$ 

#BUF, gRLBA 
#-128./?RLMP 

Srlda 

R5/LDFUNC 

R5# WTCRDY 
SEG 

CSESCAPE 
10000$-- 
R5#CHERR 
SEG 

CSESCAPE 
10000$-. 

C$BSEG 

; VER IFY WRITE WITH READ BEFORE 



;SETUP AND WRITE 
/128 WORDS 
JWRITE 
JDONE?? 



;LOAD BUS ADDRESS 

>W0RD COUNT 

;CLEAR DISK ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

JWAIT FOR CONTROLLER READY 
JCHECK FOR FL:LOE/ ELSE EXIT SEG 

2CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



>*%START OF SEGMENT** 



;LQAD THE FUNCTION IN NEXT WORD 



ASSEMBLY ROUTINES 
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033176 
033200 
033204 
033204 
033206 
033210 
033214 
033214 
033216 



mm 

mm 

033226 
033234 

mm 

033250 
033254 
033254 
033256 



000014 
004537 

104010 
000060 
004537 

104010 
000050 



104004 



m 



104010 
000006 



30A(1052) 22-NOV-78 
**TEST 33** 



0050. 
01"* 
01, . . 
00*537 
000002 



004537 021276 



021276 
020214 

147020 
177600 
003052 
020456 



147014 
147002 



15:35 PAGE 1-75 
- WRITE CHECK FUNCTION 



SEQ 0105 



3$: 



READ 
JSR 

ESCAPE 
EMT 
• WORD 
JSR 

ESCAPE 
EMT 
. WORD 

BGNSEG 
EMT 



CLR 
MOV 
MOV 
JSR 
WRCHK 

JSR 

ESCAPE 

EMT 

.WORD 



R5, WTCRDY 

SEG 

CSESCAPE 
10001$-. 
R5/CHERR 
SEG 

CSESCAPE 
10001$-. 



C$BSEG 



|RLDA 

fBUF^gl __ 
R5,LDPUNC 



BA 



R5, WTCRDY 

SEG 

CSESCAPE 
10002$-. 



;CHECK FOR FL:LOE/ ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;%%START OF SEGMENT** 



; WORD COUNT 
;BUS ADDRESS 

;LOAD 
;WRITE CHECK 



;WAIT FOR CONTROLLER REAC 
;CHECK FOR FL:L0E, ELSE f 



THE FUNCTION IN NEXT WORD 



Y 

XIT 



3030 



033260 004537 020214 

033264 
033264 
033264 



033266 
033266 
033266 

mm 

mm 



033274 
033274 



033274 
033274 



104005 
104005 
104005 
104001 



10002$: 
10001$: 

10000$: 

ENDTST 
L10066: 



JSR 

ENDSEG 



EMT 

ENDSEG 



EMT 

ENDSEG 



EMT 



R5/CHERR 

C$ESEG 
C$ESEG 
C$ESEG 



;CHECK CNTLR FOR ERRORS 

;**END OF SEGMENT** 

;**END OF SEGMENT** 

;**END OF SEGMENT** 

;**END OF TEST** 



EMT 



.SBTTL 
BGNTST 



C$ETST 

**TEST 34** - WRITE CHECK FUNCTION INTERRUPT 

;**START OF TEST** 

STARS 

• ; ******** 

;CHECK OF WRITE CHECK LOGIC 
;WE WILL WRITE CHECK A FULL 
;WE CHECK THAT NO ERRORS OCC 



************************************************** ******* 

UNDER INTERRUPT MODE 

SECTOR (128 WORDS) FROM MEMORY (BUF). 

OCCUR. WE DO NOT CHECK RLDA OR RLBA 

/INCREMENT AT THIS TIME. 
STARS 

******* 



********************************************************** 



004737 021356 



PC/HDHOME 



;heads over track o 
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NES 

22-NOV-7B 



3048 
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♦•TEST 34** - 

CKERFG 
EMT 
• WORD 



5:35 PAGE 1-76 

WRITE CHECK FUNCTION INTERRUPT 



SEQ 0106 



177600 
020456 



021276 



020214 



146?8? 



146630 
146626 



MOV 
MOV 

299$: MOV 

DEC 
BNE 

MOV 
MOV 

C M 

WRITE 

JSR 

ESCAPE 
EMT 

• WORD 
JSR 

ESCAPE 
EMT 
.WORD 
; VERIFY WRITE 

CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 
EMT 

• WORD 
JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 
EMT 



CSEXIT 

L10067-. 



CSBSEG 

IBUF,R0 
|lil§5i(R0>* 
299$ 

IBUF# 0RLBA 
-12B.,8RLMP 
§/LDFUMC 



jheads go home okay 

;!!start of segment! % 
> setup and write 



|^| T WORDS 



... ITE 
;D0NE77 



;LOAD BUS ADDRESS 
;WORD COUNT 



R5 £ WTCRDY 

SEG 

R5#CHERR 
SEG 



,CLE*R OI^HBS^UNCTION n WM 

T FOR CONTROLLER READY 
CK FOR FL:LOE, ELSE EXIT SEG 



CSESCAPE 
10000$-. 
WITH READ BEFORE WRCHK 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



0RLDA 

#BUF#@RLBA 
#-12B.,gRLMP 

R5 # LDFUNC 

R5#WTCRD Y 

SEG 

CSESCAPE 
10000$-. 
R5,CHERR 
SEG 

CSESCAPE 
10000$-. 

C$BSEG 



;LOAD THE FUNCTION IN NEXT WORD 

;CHECK FOR FL:LOE/ ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE# ELSE EXIT SEG 

;%%START OF SEGMENT%% 



MM 

m 



3452 



5456 
34V 



°3 

033462 
033470 



033' 
033' 
0331 



76 

83I? M 



m 



00503 
005 
012 

012777 



510 



mm 



44 
164 

...J00 146560 
003052 146546 



000000 
020456 



CLR 
CLR 
MOV 
MOV 

SETPRI 
MOV 
EMT 
JSR 



WRCHK ! INTEN 



INTFLG 

"RLDA 
-128.,ftRLMP 
BUF/ QKLBA 

PRIOO 
PRI00,R0 
$SPRI 
LDFUNC 



/CLEAR INTERRUPT OCCURANCE FLAG 

;set up word count 

;set up bus address 

priority to 

;load the function in next word 
;write check under interrupt 
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* " WRITE CHECK FUNCTION INTERRUPT 



033512 
033516 
033516 
033520 

mm 

0ll526 

033536 
033536 

mm 

033546 
033550 



004537 



104010 
000036 



012700 

mm 

001004 

104462 
000004 
013537 
014244 

104010 
000006 



15:28 
021276 



000340 
002144 



**TEST 34** 



SEQ 0107 



033552 004537 020214 

033556 
033556 

033556 104005 

033560 

033560 

033560 104005 

033562 

033562 

033562 104001 



033564 
033564 



033564 



2$: 



10001$: 



10000$: 



ENDTST 

L10067: 



•SBTTL 
BGNTST 

STARS 
. . **** 

;check 

;WRITE 
JCREAT 
JWE WI 
STJRS 



JSR 

ESCAPE 

EMT 

.WORD 

SETPRI 

MOV 

EMT 

TST 

BNE 

ERRDF 

TRAP 

• WORD 

.WORD 

.WORD 

ESCAPE 

EMT 

.WORD 

JSR 

ENDSEG 
EMT 

ENDSEG 
EMT 



EMT 

**TEST 



R5# WTCRDY 

SEG 

CSESCAPE 
10001$-. 

#PRI07 

|PRI07,R0 

CSSPRI 

INTFLG 

2$ 

4.,EM60,ERR0 
T$ERCODE 

EM60 
ERRO 
SEG 

CSESCAPE 
10001$-. 

R5,CHERR 



C$ESEG 
C$ESEG 



;WAIT FOR INTERRUPT 

;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;SET PRIORITY TO 7 

;DID INTERRUPT OCCUR? 
} YES-BRANCH NO-REPORT 

;WRITE DID NOT INTERRUPT 

;CHECK FOR FL: LQE/ ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 

;%%END OF SEGMENT!! 

;%%END OF SEGMENT!* 
;**END OF TEST** 



C$ETST 

35** - PROPER INCREMENT OF RL.BA ON WRITE CHECK 
;**START OF TEST** 



****************************************** 

THAT THE RLBA WILL INCREMENT PROPERLY AFTER THE 
CHECK WAS FINISHED THE RLBA SHOULD BE 128 WORDS (256 BYTES) 
ER. STARTING RLBA IS "BUF"* ENDING SHOULD BE "BUF + 256. » 
LL MONITOR ALL ERRORS AND REPORT THEM ACCORDINGLY 

************************************************************** 



3119 033564 

3 n\ mm 

| 4} 033600 

3122 033602 

m o336 °* 

3124 033604 



004737 021356 



104032 
000256 



104004 
012700 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 



PCHDHOME 



CSEXIT 
L10070- 



C$BSEG 
#BUF,R0 



;heads over track 
;heads go home okay 



;%%START OF SEGMENT!* 
;SETUP AND WRITE 
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3154 



3163 



166 
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**TEST 35** - PROPER INCREMENT 



mm 

034020 
034022 
034024 



104010 
000164 



033704 

033720 
033724 
033724 

033734 

mm 

033740 
033740 

033742 
033742 
033746 
033754 
033762 
033770 

033776 

SI488? 
034010 

034010 

034012 0000 



020214 



177600 
020456 

021276 



020214 



146300 

mm 
mm 

020456 



004537 021276 



104010 

mm 



104004 



005077 

oim 

012737 
062737 

mi 3 - 1 - 

0045 

104010 
40 



004537 

104010 
000030 
017737 



020214 
146214 



299$! 



mm 



MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 
• WORD 
JSR 

ESCAPE 
EMT 
.WORD 




OF RLBA ON WRITE CHECK 



SEQ 0108 



;DONE?? 



BOS ADDRESS 
COURT 



R5,WTCRDY 

SEG 

CSESCAPE 
10000$-. 
R5/CHERR 
SEG 

CSESCAPE 

0000s- 



>CLEAR DISK ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

? WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 

JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



; VERIFY WRITE WITH READ BEFORE WRCHK 



146340 
146336 



3$: 



4tl|| 
81l66 



002170 



CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 
EMT 
.WORD 
JSR 

ESCAPE 
EMT 
. WORD 

BGNSEG 
EMT 



CLR 
MOV 
MOV 
MOV 
ADD 

JSR 

WRCHK 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 



8RLDA 

iBUFggRLBA 
1-128. fgRLMP 
R5/LDFUHC 

R5# WTCRDY 

SEG 

f85i8|Ef 

R5#CHERR 
SEG 

CSESCAPE 
10000$-. 



C$BSEG 



IBUP,gRLBA 
-128. £ flRLMP 
BUF/GDDAT 
256.,GDDAT 

R5/LDFUNC 

R5/WTCRDY 

SEG 

CSESCAPE 
10001$-. 

R5#CHERR 

SEG 

CSESCAPE 
10001$-. 
gRLBA/BDDAT 



;LOAD THE FUNCTION IN NEXT WORD 

;CHECK FOR FL:LOE, ELSE EXIT SEG 

iCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE # ELSE EXIT SEG 

;%%START OF SEGMENT!* 



;SET UP BUS ADDRESS 
;WORD COUNT 

;F0RM EXPECTED BUS ADDRESS 
; AFTER WRITE 

5LOAD THE FUNCTION IN NEXT WORD 
;WRITE CHECK 

;WAIT FOR CONTROLLER READY 
;CHECK FOR FL: LOE/ ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;READ 'RLBA' FOR PRESENT ADDRESS 
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MACY11 

15:28 



inn 




30A(1052) 22-NOV-78 
**TEST 35** 



002170 002166 



021356 



003052 
000200 
125252 



1 



00453 
104010 



021276 



15:35 PAGE 1-79 
- PROPER INCREMENT OF 



RLBA ON WRITE CHECK 



SEQ 0109 



mn hi 



116 
114 



CMP 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



2$: 

10001$: 

10000$: 

ENDTST 
L10070! 

.SBTTL 
BGNTST 



EMT 

ENDSEG 



BDDAT,GDDAT 

2$ 

5.,EM61 £ ERR4 
T$ERCODE 

EM61 
ERR4 



C$ESEG 
C$ESEG 



EMT C$ETST 
**TEST 36** - PROPER 



;DID *BA* INCREMENT PROPERLY? 
;YES, CONTINUE 

;BA DID NOT INCREMENT 



;%%END OF SEGMENT** 
;%%END OF SEGMENT** 
;**END OF TEST** 

INCREMENT OF RLDA ON WRITE CHECK 
;**START OF TEST** 



jcHECK THAT THE SECTOR INCREMENTS AFTER THE WRITE CHECK WAS FINISHED. 
;A FULL SECTOR WRITE CHECK THE RLDA SHOULD REFLECT AN INCREMENT 
SOF THE SECOTR. "GDDAT" WAS THE EXPECTED RLDA. 
STARS 



************** ***** ******* * ********** ************************** 



299$: 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 



PCHDHOME 



;heads over track 
;heads go home okay 



C$BSEG 



;**START OF SEGMENT** 



<R0) + 

299$ 

§BUF#gRLBA 
|-12§.,gRLMP 
gRLDA 
R5, LDFUNC 

R5#WTCRDY 

SEG 

C$ESCAPE 



;SETUP AND WRITE 
;128 WORDS 
; WRITE 

;done?? 



;LOAD BUS ADDRESS 

JWORD COUNT 

;CLEAR DISK ADDRESS 

;load the function in next WORD 

;WAIT FOR CONTROLLER READY 
jCHECK FOR FL:LOE, ELSE EXIT SEG 



CZRLBB.P11 22-H0V-78 



mm 
mm 



013652 
014410 



034344 
034344 



MACV11 

15128 



020214 



22-NUV-Y8 
**TEST 36** 




J VERIFY MR 



mm 



3$! 



145776 

urn 



2170 
2170 



2$S 



CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 
EMT 

• WORD 
JSR 

ESCAPE 
EMT 

• WORD 

BGNSEG 
EMT 



SB? 

INC 
MOV 
MOV 

JSR 
WRCHK 

JSR 

ESCAPE 
EMT 

• WORD 

JSR 

ESCAPE 
EMT 

• WORD 

MOV 
CMP 
BEQ 

ERRDF 
TRAP 

• WORD 
.WORD 
.WORD 



1!>: Jt> PAGE 1-80 
- PROPER INCREMENT 




Or RLDA ON WRITE CHECK 



1CHECK CNTLR FOR ERROR 
JCHECK FOR FL:LOE, ELSE EX"" " 



SEQ 0110 



SEG 



HReId' BEFORE WRCHK 
RLDA 

BOFjfRLBA 
-128.*SRLMP 
5,LDF0iC 



R5gWTCRDY 

RSgCHERR 



C$BSEG 



GDDAT 
GDDAT, 



§RLDA 

UUUAT 

R5/LDFUNC 

R5 £ WTCRDY 
SEG 

CSESCAPE 
10001$-. 

R5#CHERR 
SEG 

CSESCAPE 
10001$-. 

E. DA#BDDAT 
GDDAT/BDDAT 

6./EM62,ERR4 
T$ERCODE 

EM62 
ERR4 



>LQAD THE FUNCTION IN NEXT WORD 

;CHECK FOR FLtLOE, ELSE EXIT SEG 

;CHECK CNTLR FOR ERRORS 
;CHECK FOR FLtLOE, ELSE EXIT SEG 

;**START OF SEGMENT** 



;SETUP DISK ADDRESS 
;CREATE EXPECTED SECTOR 
;W0RD COUNT 
;SETUP BUS ADDRESS 

/LOAD THE FUNCTION IN NEXT WORD 
;NRITE CHECK 

;WAIT FOR CONTROLLER READY 
JCHECK FOR FL:LOE, ELSE EXIT SEG 



5CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



/READ DISK ADDRESS 

;DID SECTOR INCREMENT PROPERLY 

;YES, BRANCH NO, REPORT ERROR 

; DA DID NOT INCREMENT 



;%%END OF SEGMENT** 
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15:28 "'" 



104005 



104001 



021356 




000006 8olil5 



:« mm 

_._,_6 145562 
020456 

021276 



020214 



**TEST 36** 

10001$: 



10000$! 



ENDTST 

L10071! 



EMT 

ENDSEG 



EMT 



PROPER INCREMENT OF RLDA ON WRITE CHECK 

C$ESEG 
C$ESEG 
C$ETST 



SEQ 0111 



;%%END OF SEGMENT** 
;**END OF TEST** 



•SBTTL 
BGNTST 



**TEST 37** - MULTIPLE SECTOR WRITE CHECK 

;**START OF TEST** 



STARS 

• . *************************************************************** 

;6HECK FOR MULTIPLE SECTOR WRITE CHECK. THIS TEST CHECKS 

;THAT TWO SECTORS CAN BE SUCCESSFULLY CHECKED. WE LOAD 

;A WORD COUNT OF 129 WORDS (ONE SECTOR ♦ 1 WORD) STARTING AT 

;SECTOR THRU SECTOR 37 AND VERIFY THAT THE RLDA DOES 

;A DOUBLE INCREMENT EACH TIME. 

STARS 

. . *************************************************************** 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 



MOV 
MOV 
MOV 
MOV 

299$: MOV 

DEC 
BNE 



1$: 



MOV 

MOV 

MOV 

BIS 

MOV 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 
• WORD 

JSR 

ESCAPE 
EMT 



PCHDHOME 

lIooJ!-. 



C$BSEG 

i0/TMP0 
0#TMP1 
BUF/RO 
129. ,R1 
|25252,(R0)+ 

299$ 

#BUF,§RLBA 
1-129. cgRLMP 

tmpLgBBat 
tmpo;gddat 



;HEADS OVER TRACK 
; HEADS GO HOME OKAY 



;** START OF SEGMENT** 



ONC 



R5# WTCRDY 
SEG 

CSESCAPE 
10000$-. 
R5#CHERR 
SEG 

C$ESCAPE 



;SETUP AND WRITE 
;129 WORDS 
;WRITE 
;D0NE7? 



/LOAD BUS ADDRESS 
;WORD COUNT 



;LOAD THE FUNCTION IN NEXT WORD 

;WAIT FOR CONTROLLER READY 
JCHECK FOR FLJLOE, ELSE EXIT SEG 

/CHECK CNTLR FOR ERRORS 
JCHECK FOR FLSLOE, ELSE EXIT SEG 



ASSEMBLY ROUTINES 
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034510 000230 




034576 
034576 



1 

o*lj| 

sii 

mm 

104004 



MACY11 

15528 



III! 

020456 

021276 

020214 



30A(1052) 22-NOV-78 
**TEST 37** 



I 



15:35 PAGE 1-82 
- MULTIPLE SECTOR WRITE CHECK 



SEQ 0112 



.WORD 10000$-. 
; VERIFY WRITE WITH READ BEFORE WRCHK 



MOT 

BIS 

MOV 

MO? 

MOV 

JSR 

READ 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT ' 
• WORD 

BGNSEG 

EMT 



TMP1#GDDAT 

TMP5-GDDAT 
GDuIf #|RLDA 



II! 1 



ldf6§' 



IC 

WTCRDY 
R5#CHERR 



R5,« 

SEG 



SEG 



CSBSEG 



;LOAD THE FUNCTION IN NEXT WORD 

JCHECK FOR FL:LOE, ELSE EXIT SEG 

ICHECK CNTLR FOR ERRORS 
; CHECK FOR FL:LOE, ELSE EXIT SEG 

;%%START OF SEGMENT%% 



034600 
034606 
034614 
034622 
034630 
034636 

034644 
034650 
034652 
034656 
034656 
034660 

034662 
034666 
034666 
034670 

034672 
034700 
034706 

034710 
034710 

!HH 

034716 



013737 

mw 

062737 

mm 

004537 
000002 
004537 

104010 
000042 

004537 

104010 
000032 

013737 
023737 
001404 



104462 
000007 
013727 
014410 



104006 



002162 

mm 

000002 
003052 
177577 

020456 

021276 



020214 



002232 
002170 



002166 
002166 

002ll6 
145406 
145404 



002170 
002166 



2$: 



MOV 
BIS 
MOV 
ADD 
MOV 
MOV 

JSR 

WRCHK 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
CMP 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 

CKLOOP 
EMT 



TMP1/GDDAT 
TMP0# GDDAT 
GDDAT, QRLDA 

12, GDDAT 
BUF, gRLBA 
-129./8RLMP 

R5,LDFUNC 

R5, WTCRDY 

SEG 

CSESCAPE 
10001$-. 

R5,CHERR 
SEG 

CSESCAPE 
10001$-. 

E.DA,BDDAT 
BDDAT, GDDAT 

2$ 

7.,EM63,ERR4 

T$ERCODE 

7 

EM63 
ERR4 



C$CLP1 



;GET CYLINDER 
;GET SECTOR 

;SET DISK ADDRESS-SECTOR 

;SET EXPECTED * 2 

;SET BUS ADDRESS 

;WORD COUNT-SECTOR+1 WORD 

JLOAD THE FUNCTION IN NEXT WORD 
;WRITE CHECK 

;WAIT FOR CONTROLLER READY? 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



5CHECK CNTLR FOR ERRORS 
;CHECK FOR FL: LOE/ ELSE EXIT SEG 



;READ DISK ADDRESS 

;IS DISK ADDRESS CORRECT 

;YES, BRANCH NO, REPORT ERROR 

;DISK ADDRESS NOT CORRECT 
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034722 
034722 
034722 

034724 
034730 
034736 
034740 
034740 
034740 
034742 
034742 
034742 



104005 

005237 
022737 
001233 



104005 
104001 



MACY11 
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**TEST 37** - MULTIPLE SECTOR 



002160 
000046 



002160 



10001$: 



034744 



10000$: 

ENDTST 
L10072: 

•SBTTL 

BGNTST 



ENDSEG 

EMT 

INC 
CMP 
BNE 

ENDSEG 



EMT 



EMT 



C$ESEG 
TMPO 

II" 



|46,TMP0 



C$ESEG 



**TEST 38 



IF 



WRITE CHECK 

;%%END OF SEGMENT%% 



;next sector 

; AT END? 

;no, go back 

;%%END OF SEGMENTt* 



SEQ 0113 



;**END OF TEST** 

r 

FORCE DCK WITH WRITE CHECK 

;**START OF TEST** 



034744 



034744 
034750 
034756 
034760 

034762 
034762 

034764 
°34770 
034774 
035000 
035002 

035004 
035012 
035020 

8« 

035032 
035036 
035036 
035040 
035042 
035046 
035046 
035050 



035052 
035056 



004737 021356 



104004 

012700 

001374 

012777 
012777 
005077 



104010 
000200 
004537 

mm 



005077 
012777 



003052 
000200 
125252 



003052 
177600 
145222 
020456 

021276 



020214 



145232 
145230 



n* 

;FORCE A DCK WITH WRITE CHECK. 
;A SECTOR AND CHANGING A WORD 

;IS ISSUED* • 
STARS 

«• ********************** 



********************************* 

THIS IS DONE BY WRITING 
IN MEMORY BEFORE WRITE CHECK 



***************************************** 



299$: 



JSR 

CKERFG 
EMT 
• WORD 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 
.WORD 
JSR 

ESCAPE 
EMT 
.WORD 



PCHDHOME 

CSEXIT 
L10073-. 



C$BSEG 



#BUF,R0 

§2,<R0)* 



299$ 

#BUF,9RLBA 
1-128. /@RLMP 
ftRLDA 
R5/LDFUNC 

R5# WTCRDY 
SEG 

CSESCAPE 
10000$-* 
R5#CHERR 
SEG 



/heads over track 
;heads go home okay 



;%%START OF SEGMENTtt 



;SETUP AND WRITE 
;128 WORDS 
JWRITE 
;DONE?? 



/LOAD BUS ADDRESS 
;WORD COUNT 

; clear disk address 

;load the function in 



NEXT WORD 
ECK FOR FL:LOE# ELSE EXIT SEG 



?WAIT FOR CONTROLLER READY 

;CH *'" 



JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT Si 



; VERIFY WRITE WITH READ BEFORE WRCHK 



145160 



CLR 
MOV 



ftRLDA 

#BUF,gRLBA 
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• FORCE DCK WITH WRITE CHECK 




3381 

mi 

3384 
3385 
3386 

im 

3389 

m 

M 

3394 
3395 

mi 

3398 
3400 

5) 
5} 
1 5 > 
04 
105 



3406 
3407 



3I0I 



20 104004 



035122 
035126 
035132 
035140 

035146 
035152 
035154 
035160 
035160 
035162 



35164 
*5172 



03-- 
0351 
035200 

035214 
035214 

882iS 



5226 
5226 

523? 
5234 



035236 
035236 
035236 
035240 
035240 
035240 
035242 
035242 
035242 



005037 
005077 
012777 
012777 

004537 
000002 
004537 

104010 
000054 

013737 

042737 

02273^ 

00140 

00453 

104006 

022737 
001404 



014105 
014244 



104005 
104005 
104001 



002226 
001777 
104000 

020214 



145156 



177600 
020456 

021276 



020214 



003052 
145114 

003052 145104 
177600 145102 

020456 

021276 



002160 
002160 
002160 



104000 002160 



1$: 



2$: 

10001$: 

10000$: 

ENDTST 
L10073: 



MOV 

JSR 
READ 

JSR 

ESCAPE 

EMT 

ESCAPE 

EMT 
• WORD 

BGNSEG 
EMT 



CLR 
CLR 
MOV 
MOV 

JSR 
WRCHK 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
BIC 
CMP 
BEQ 
JSR 

CKLOOP 
EMT 

CMP 
BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



EMT 

ENDSEG 



EMT 
EMT 



RSgWTCRDY . 
RSgCHERR 



C$BSEG 



BUF 

SRLDA 
BUF<gRLBA 
-12B./§RLMP 

R5/LDFUNC 

R5» WTCRDY 

SEG 

CSESCAPE 
10001$-. 



SEQ 0114 

t 



JLOAD THE FUNCTION IN NEXT WORD 

JCHECK FOR FLSLQE/ ELSE EXIT SEG 

JCHECK CNTLR FOR ERRORS 
JCHECK FOR FL:LOE/ ELSE EXIT SEG 

;%%START OF SEGMENT** 



J SETTING SECTOR 40 OF CYL. ADDR. 
;WORD COUNT 

JLOAD THE FUNCTION IN NEXT WORD 
JWRITE CHECK 

;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE # ELSE EXIT SEG 



E.CS.TMP0 

#1777, TMPO 1 

BIT15!BIT11,TMP6 JDCK SET. 

■■"S/ CONTIN 



R5/CHERR 
C$CLPl 

JBIT15IBIT11/TMP0 

23. / EM65,ERR0 

T|ERCODE 

EM65 
ERRO 



J GET RLCS 
"SAVE ERROR BITS 



;yes 



; WHEN FORCED 



C$ESEG 
C$ESEG 
C$ETST 



;%%END OF SEGMENT** 
;**END OF SEGMENT** 
;**END OF TEST** 
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15:28 **TEST 38** - FORCE DCK WITH WRITE CHECK 



SEQ 0115 



WW 



035244 
035244 
035244 



•SBTTL **TEST 39** - FORCE DCK WITH WRITE CHECK INTERRUPT 
BGNTST ;**START OF TEST** 

JFORCE A DCK IN INTERRUPT MODE 



035244 
035250 
035256 
035260 



1113 



035264 
035270 
035274 

833183 

035304 
035312 
035320 
4 



035332 
035336 
035336 

mm 
mm 



035352 



004737 021356 



104032 
000322 



104004 
012700 

mm 



12777 

Mm 
mm 



003052 
177600 
144722 

020456 



004537 021276 

104010 
000240 

004537 020214 

104010 
000230 



005077 
012777 

mm 
mm 




144670 
"3052 
7600 
0456 

021276 



020214 



299$: 



144732 
144730 



JSR 

CKERFG 
EMT 
. WORD 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
DEC 
BNE 



PC,HDHOME 



CSEXIT 
L10074-. 



C$BSEG 
|BUF,R0 
|1^52§2j(R0)+ 
2^9$ 



;HEADS OVER TRACK 
JHEADS GO HOME OKAY 



MOV 
MOV 
CLR 
JSR 
WRITE 
JSR 

ESCAPE 
EMT 
.WORD 
JSR 

ESCAPE 
EMT 

.WORD , . 

; VERIFY WRITE WITH READ BEFORE 



#BUF,@RLBA 
1-128. ,§RLMP 
gRLDA 
R5/LDFUNC 

R5# WTCRDY 

SEG 

CSESCAPE 
10000$-. 
R5#CHERR 
SEG 

CSESCAPE 
10000$- 

EAD 



144660 
144656 



4010 
0162 



CLR 

MOV 

MOV 

JSR 

READ 

JSR 

ESCAPE 
EMT 
.WORD 
JSR 

ESCAPE 
EMT 
• WORD 



!RLDA 
BUF,@RLBA 
~128.,§RLMP 
5,LDFUNC 

R5# WTCRDY 

SEG 

CSESCAPE 
10000S-. 
R5/CHERR 

SEG 

CSESCAPE 
10000$-. 



;**START OF SEGMENT** 



;SETUP AND WRITE 
;128 WORDS 
JWRITE 
;DONE?? 



/LOAD BUS ADDRESS 

; WORD COUNT 

;CLEAR DISK ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

;WAIT FOR CONTROLLER READY 
JCHECK FOR FL:LOE, ELSE EXIT SEG 

JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



JLOAD THE FUNCTION IN NEXT WORD 

JCHECK FOR FL:LOE# ELSE EXIT SEG 

JCHECK CNTLR FOR ERRORS 
JCHECK FOR FL:LOE/ ELSE EXIT SEG 
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■ FORCE DCK WITH WRITE CHECK INTERROPT 



SEQ 0116 



IMii) 



II 



002160 



2$: 



1$: 



3$: 

10001$: 



BGMSEG 
EM? 



C$BSEG 



MOV 

m 

MOV 
MOV 

JSR R3# 

URCHK 1 INTEN 

JSR 

CKLOOP 
EMT 

SETPRI 
MOV 
EMT 

TST 

BNE 



ERRDF 
TRAP 
.WORD 
. WORD 
• WORD 

ESCAPE 
EMT 
. WORD 



MOV 
B1C 
CMP 
BEQ 

JSR 

CKLOOP 
EMT 

CMP 

BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

. WORD 



ENDSEG 




24.<rEM66,ERR0 
T|ERCODE 

EM66 
ERRO 



SEG 

"1ES 

>001$-. 



CSESCAPE 
100"- ' 



;**START OF SEGMENT** 



>CLEAR INTERRUPT OCCURANCE FLAG 



; SETTING SECTOR 40 OF CYL. ADDR. 
; WORD COUNT 

/LOAD THE FUNCTION IN NEXT WORD 
;WRITE CHECK 

;WAIT FOR CONTROLLER READY 



;DID INTERRUPT OCCUR 
;YES OKAY 



;NO INTERRUPT FROM DCK 



;CHECK FOR FLtLOE, ELSE EXIT SEG 



J GET RLCS 
"RRO 



#17^5, TMPO ;SAVE ERROR BITS 

fBITlSfBITll/TMPO ;DCK SET. 

i$ ;yes, continue 

R5,CHERR 
C$CLP1 

|BIT15iBITll,TMP0 

' .,EM65/ERR0 

ERCODE 



2. 

II 

EM65 
ERRO 



/WHEN FORCED 

;%%END OF SEGMENTS 
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035600 

8U 

035602 
035602 
035602 104001 



104005 
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15:28 **TEST 39** - FORCE DCK WITH WRITE CHECK INTERRUPT 



SEQ 0117 



10000$: 



LI 



EMT C$ESEG 
ENDSEG 



C$ESEG 
C$ETST 



;%%END OF SEGMENT** 
>**END OF TEST** 



3498 
3499 
3500 
3501 

M 

mi 

3505 
3506 

3508 
3509 



035604 



035604 




004737 021356 

mm 

104004 
012737 

mm 

012720 



013700 
005400 

Hill 

QQ4537 

mm 

104010 
000200 

004537 

104010 
000170 



000001 002162 
052S25 



002162 

144364 

003052 
144350 
020456 

021276 



020214 



144352 



. SBTTL **TEST 40** - CHECK ZERO FILL ON WRITE WITH WRITE CHECK 
BGNTST ;**START OF TEST** 



/WHEN WRITING PARTIAL SECTORS (LESS THAN 128 WORDS) THE 

^CONTROLLER WILL FILL IN THE REMAINING PORT ~~ 

/THE SECTOR WITH ZERO WORDS. CHECK THIS FE 

' ' 127 



3 WITH WORD COUNTS FROM 
STARS 

************************* 



TIQN 0! 
EATURE 



CAN BE WRITE CHECKED 



33$: 
3$: 



JSR 

CKERFG 
EMT 
• WORD 

BGNSEG 
EMT 

MOV 

MOV 

MOV 

MOV 

DEC 

BNE 

MOV 

NEG 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ESCAPE 
EMT 
.WORD 



PC/HDHOME 



/HEADS OVER TRACK 

;heads go home okay 



C$BSEG 

il#TMPl 
BUF,R0 
yisS^RO)* 

tSpi,ro 

RO 

RO/gRLMP 
#BUF/@RLBA 
gRLDA 
R5/LDFUNC 

R5# WTCRDY 

SEG 

CSESCAPE 
10000$-. 

R5#CHERR 
SEG 



...... IMP* 

; VERIFY WRITE WITH READ BEFORE 



;%%START OF SEGMENT** 



; START WITH 1 WORD WRITE 
/WRITE BUFFER WITH 52525, WE'LL 
;WRITE 128 WORDS ALL THOUGH WE'RE 
/ONLY GOING TO TRANSFER < 128 
; DONE WITH BUFFER? 
;no# GO BACK 

;GET TRANSFER WORD COUNT 
; NEGATE FOR RLMP 
;STORE WORD COUNT AWAY 
;SET UP RLBA 

/LOAD THE FUNCTION IN NEXT WORD 
;WRITE IT 

;WAIT FOR WRITE TO FINISH 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 
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CZRLBB.P11 22-NOV-78 15:28 **TEST 40** - CHECK ZERO FILL ON WRITE WITH WRITE CHECK 



SEQ 0118 




3556 
3557 
3558 
3559 



036042 
036046 
036052 



004537 
005737 
001003 

104010 
000016 
000405 




144306 



144236 



020214 
002124 



002162 
002162 



000200 



10$: 
8$: 



99$: 
10001$: 



10000$: 



CLR 

MOV 

MOV 

NEC 

MOV 

JSR 

READ 

JSR 

ESCAPE 
EMT 
• WORD 

JSR 

ESCAPE 
EMT 
. WORD 

BGNSEG 
EMT 

MOV 

MOV 

NEG 

MOV 

CLR 

JSR 

WRCHK 

JSR 

ESCAPE 
EMT 
. WORD 

JSR 
TST 
BNE 

ESCAPE 
EMT 
.WORD 
BR 

CKLOOP 

EMT 

ERRDF 

TRAP 

.WORD 

. WORD 

. WORD 

ENDSEG 



INC 
CMP 
BNE 

ENDSEG 
EMT 



BRLDA 

|BUF,0RLBA 
TMPlJftO 

R0,»RLMP 
R5/LDFUNC 

R5* WTCRDY 

SEG 

mm-* 

R5 £ CHERR 
SEG 



CSBSEG 
jfBUF/ RRLBA 

tmpi;po 

RO 

RO^g RLMP 
t§,LDFUNC 

R5# WTCRDY 

SEG 

CSESCAPE 
10001$-. 

R5/CHERR 
T.CRC 

8$ 
SEG 

CSESCAPE 
10001$-. 
99$ 

CSCLP1 

37.,EM64,ERR14 

t|ercode 

EM64 
ERR14 



C$ESEG 
TMP1 

TMP1,#128. 

33$ 



;LOAD THE FUNCTION IN NEXT WORD 
; CHECK FOR FL:LOE, ELSE EXIT SEG 



JCHECK 



JCHECK CNTLR FOR ERRORS 
FOR FL:LOE, ELSE EXIT SEG 



;%%START OF SEGMENT%% 
JSET UP TO READ 



;SECTOR 



JLOAD THE FUNCTION IN NEXT WORD 



;WAIT TIL WE FINISH THE WRCHK 
;CHECK FOR FL:LQE/ ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;WAS ERROR A DCK?? 
;YES, GIVE MOR INFO 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;SKIP AROUND 

/YES, CHECK FOR LOOP FIRST 



;EXIT TEST 

;%%END OF SEGMENT!! 



;!%END OF SEGMENT!! 



C$ESEG 
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CZRLBB.P11 22-NOV-78 15:28 **TEST 40** - CHECK ZERO FILL ON WRITE WITH WRITE CHECK 



SEQ 0119 



036114 
036114 

036114 104001 




005077 
-"777 

537 



ENDTST 
L10075: 



EMT CSETST 
**TEST 41** 



BGNTST 



;**END OF TEST** 

EXTENDED CHECK OF WRITE CHECK FUNCTION 
;**START OF TEST** 



STARS 

. . ************************************** 

;6HECK OF WRITE CHECK LOGIC UNDER FLAG MODE 

;THIS TEST IS DONE WITH ALL BIT PATTERNS 

> WE WILL WRITE CHECK A FULL SECTOR (128 WORDS ) FROM 

J MEMORY (BUF). WE CHECK THAT NO ERRORS OCCUR. 

STARS 

.. *************************************************************** 



004737 021356 



104032 
000246 



003052 
000200 



298$: 



299$: 



mm 

144044 

020456 

021276 



144054 

144052 



020214 



144010 
003052 
177600 
020456 



JSR 

CKERFG 
EMT 
. WORD 

MOV 

BGNSEG 
EMT 

MOV 

MOV 
MOV 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 
. WORD 
JSR 

ESCAPE 
EMT 
. WORD 
BGNSEG 
EMT 



PC,HDHOME 

CSEXIT 
L10076-. 

#HDRT AB/ R3 

C$BSEG 

#BUF,R0 

Il28;,Rl 

<R3),ft2 

R2,(R0)+ 

Rl 

299$ 

JfBUF, gRLBA 
|-12§;,§RLMP 
gRLDA 
R5/LDFUNC 

R5# WTCRDY 

SEG 

CSESCAPE 
10000$-. 
R5/CHERR 
SEG 

CSESCAPE 
10000$-. 

CSBSEG 



;HEADS OVER TRACK 
;HEADS GO HOME OKAY 



;%!START OF SEGMENT!! 



;SETUP AND WRITE 
5128 WORDS 



;write 

;DONE?? 



/LOAD BUS ADDRESS 

;WORD COUNT 

;CLEAR DISK ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

;WAIT FOR CONTROLLER READY 

J CHECK FOR FL: LOE/ ELSE EXIT SEG 



#v,n&uiv i.niUK run ckkuks 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 

;!!START OF SEGMENT!! 

/VERIFY WRITE WITH READ BEFORE WRCHK 



144000 
143776 



CLR 
MOV 
MOV 
JSR 



flRLDA 

f BUF#@RLBA 

I-UB./gRLMP 

R5,LDFUNC 



/LOAD THE FUNCTION IN NEXT WORD 
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**TEST 41** - EXTENDED CHECK OF 



nun 



004537 

mm 

004537 

mm 



104004 



021276 
020214 



143740 

mm 

020456 



005077 

"4537 
0002 

004537 021276 

104010 
000024 



3$: 



mm 



READ 
JSR 

ESCAPE, 
EMT 
.WORD 
JSR 

ESCAPE 

EMT 

.WORD 

BGNSEG 
EMT 



CLR 
MOV 
MOV 
JSR 
WRCHK 

JSR 

ESCAPE 

EMT 
. WORD 



R5# WTCRDY 

SEG 



se6 

CSBSEG 
RLDA 

5,LDFUNC 



R5# WTCRDY 

SEG 

CSESCAPE 
10002$-. 



WRITE CHECK FUNCTION 

;CHECK FOR FL:LOE, ELSE EXIT SEG 

JCHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 

;%%START OF SEGMENT!! 



JWORD COUNT 
;BUS ADDRESS 

/LOAD THE FUNCTION IN NEXT WORD 
;WRITE CHECK 

;WAIT FOR CONTROLLER READY 
JCHECK FOR FLrLOE/ ELSE EXIT SEG 



SEQ 0120 



004537 
005737 
001404 



in mm 

~" 015216 
014220 



036340 
036344 
036350 

036352 

03 

03 

036356 
036360 

036362 

036362 
036362 
036362 



036366 
036370 
036374 



036376 
036400 
036400 
036400 



005723 
020327 
001262 



104005 
104001 



020214 
002124 



002660 



JSR 
TST 

BEQ 



4$: 

10002$: 
10001$: 



10000$: 



ENDTST 
L10076: 



EMT 

ENDSEG 



TST 
CMP 
BNE 

ENDSEG 
EMT 



R5/CHERR 

T.CRC 

4$ 



JCHECK CNTLR FOR ERRORS 
;WRITE CHECK ERROR?? 
;NO 



ERRHRD 410./ERR15,EM70 

TRAP TSERCODE 

. WORD 410 

. WORD ERR15 

.WORD EM70 



C$ES£G 
C$ESEG 

IDREND 



R^JhD 
298$ 



C$ESEG 
C$ETST 



;%%END OF SEGMENT** 
J**END OF SEGMENT** 



;**END OF SEGMENT** 
j**END OF TEST** 
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15:28 **TEST 41** - EXTENDED CHECK OF WRITE CHECK FUNCTION 



SEQ 0121 




004737 021356 



104032 
000252 



012703 002504 



003052 
000200 



004537 
000014 



100000 



003052 
177600 
143554 
020456 

021276 



020214 



14352 

torn, 

020456 



143564 
143562 



mm 



.SBTTL 

BGNTST 



**TEST 42** 



EXTENDED CHECK OF WRITE CHECK FUNCTION 
;**START OF TEST** 



STARS 

..*************************************************************** 

;6HECK OF WRITE CHECK LOGIC UNDER FLAG MODE 
;TEST IS DONE WITH ALL BIT PATTERNS 

; WE WILL WRITE CHECK A FULL SECTOR (128 WORDS) FROM 
^MEMORY ( BUF ) • WE CHECK THAT NO ERRORS OCCUR. 

..*********** *** **************************************** ****** 



298$: 



299$: 



JSR 

CKERFG 
EMT 
. WORD 

MOV 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
BIS 
MOV 
DEC 
BNE 

MOV 

MOV 

CLR 

JSR 

WRITE 

JSR 

ESCAPE 
EMT 
.WORD 
JSR 

ESCAPE 
EMT 
.WORD 
BGNSEG 
EMT 



PCHDHOME 

CSEXIT 
L10077-. 

#HDRTAB,R3 

C$BSEG 

#BUF,R0 

§128. ,R1 

(R3),R2 

#BIT15,R2 

R2/(R0)+ 

Rl 

299$ 

#BUF#@RLBA 
1-128. ,@RLMP 
gRLD A 
R5/LDFUNC 

R5*WTCRDY 

SEG 

J888SK? 

R5#CHERR 
SEG 

£8688$!? 



jHEADS OVER TRACK 
/HEADS GO HOME OKAY 



;**START OF SEGMENT** 



;SETUP AND WRITE 
H28 WORDS 
;GET PATTERN 



jdone?? 



JLQAD BUS ADDRESS 

;W0RD COUNT 

/CLEAR DISK ADDRESS 

;LOAD THE FUNCTION IN NEXT WORD 

;WAIT FOR CONTROLLER READY 
JCHECK FOR FL:LOE, ELSE EXIT SEG 



JCHECK CNTLR FOR ERRORS 
p^ R 



; CHECK FOR FL:LOE, ELSE EXIT SEG 
;**START OF SEGMENT** 
; VER IFY WRITE WITH READ BEFORE WRCHK 



C$BSEG 



CLR 
MOV 
MOV 
JSR 
READ 



gRLDA 

fBUFfgRLBA 

I-12B.,pLMP 

RS/LDFuNC 



JLOAD THE FUNCTION IN NEXT WORD 



9 
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**TEST 42** - EXTENDED CHECK OF WRITE CHECK FUNCTION 



104005 
104001 



002124 



SEQ 0122 



3$: 



143444 
143432 



JSR 

ESCAPE 
EMT 
.WORD 
JSR 

ESCAPE 
EMT 
• WORD 



10000$: 



R5,WTCRDY 

SEG 



JSR 
TST 



ERRHRD 
TRAP 

• WORD 
. WORD 
.WORD 



4$: 

10002$: 
10001$: 



EMT 

ENDSEG 



TST 
CMP 
BNE 

ENDSEG 
EMT 



se6 
csescape 

1000" ' 




;CHECK FOR FL:LOE/ ELSE EXIT SEG 

5CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;%%START OF SEGMENT%% 



;WORD COUNT 
)BUS ADDRESS 



;LOAD THE FUNCTION IN NEXT WORD 

HE- 



RS* WTCRDY 

SEG 

CSESCAPE 
10002$-- 



R5#CHERR 

T.CRC 

4$ 



;WRITE CHECK 

;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 



410.,ERR15,EM70 

TSERCODE 

410 

ERR15 

EM70 



C$ESEG 



?%%END OF SEGMENT%% 
;%%END OF SEGMENT%% 



C$ESEG 
(R3>* 

R3«f HDREND 
298$ 



C$ESEG 



ENDTST 
L10077: 

EMT CSETST 
. SBTTL **TEST 43** 



;%%END OF SEGMENT%% 
;**END OF TEST** 
READ WITHOUT HEADER COMPARE FUNCTION 
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036762 
036766 

mi 



004737 

104032 
000114 
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15:28 **TEST 43** - READ WITHOUT HEADER COMPARE FUNCTION 

STARS 

• . ************************************* „ „ „ „ 

$f EST THAT READ WITHOUT HEADER VERIFICATION WORKS. THIS FUNCTION SHOULD 
; READ AT THE NEXT SECTOR ENCOUNTERED. SET THE RLDA TO 
;AND ISSUE THE FUNCTION IN FLAG MODE. UPON COMPLETION CHECK 
JFOR ERRORS 
STARS 

********* 



SEQ 0123 



*************** 



004737 021356 



177600 

020456 
021276 



020214 



143 
143 
143 



112 



021356 



BGNTST 



************** 



***************************************** 
;**START OF TEST** 



10000$: 



ENDTST 
L10100: 



JSR 

CKERFG 

EMT 

.WORD 

BGNSEG 
EMT 



MOV 

MOV 

MOV 

JSR 

RDNHD 

JSR 

ESCAPE 

EMT 

.WORD 

JSR 

ENDSEG 
EMT 

EMT 

**TEST 



PC/HDHOME 



CSEXIT 
L10100- 



C$BSEG 



;heads over track 
;heads go home okay 



!BUF,gRLB 
-l/gRLDA 
5/LDFUNC 

R5* WTCRDY 

SEG 

CSESCAPE 
10000$-. 

R5/CHERR 



RLMP 
BA 



;%%START OF SEGMENT%% 



;SET UP WORD COUNT 
; SETUP BUS ADDRESS 
;HEADER SHOULDN'T MATTER 

/LOAD THE FUNCTION IN NEXT WORD 
;READ DATA WITHOUT HEADER VERIFY 
;WAIT FOR IT TO FINISH 
)CHECK FOR FL:LOE # ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;%%END OF SEGMENT%% 



C$ESEG 

C$ETST 
44** - READ 



.SBTTL 
BGNTST 
STARS 

• • ************************** 
;f EST THAT READ WITHOUT HEAD 
; INTERRUPT MODE. 
STARS 

• • ************************** 



;**END OF TEST** 



IITHOUT HEADER COMPARE FUNCTION INTERRUPT 
;**START OF TEST** 



************************************* 
ER VERIFICATION WORKS IN 



************************************* 



JSR 

CKERFG 



PCHDHOME 



EMT CSEXIT 
.WORD L10101- 



;heads over track o 
;heads go home okay 



it 
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104005 
104001 



002144 




30A(1052) 22-NOV-78 1 

**TEST 44** 



IS: 



10000$; 



ENDTST 

L10101: 
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READ WITHOUT HEADER COMPARE FUNCTION INTERRUPT 
;t*START OF SEGMEMT%% 



SEQ 0124 




CLEAR INTERRUPT OCCURANCE FLAG 

- H - ;set up_woBD_cgyM|_Fg r 



R ONE SECTOR 



;setup buffEr C add5ess 

;DISK ADDRESS IS A DON'T CARE 



JSl 
SETPRI 
MOV 
EMT 

ESCAPE 

EMT 

.WORD 

TST 
BNE 

ERRDF 
TRAP 
. WORD 
.WORD 
.WORD 
ESCAPE 
EMT 
• WORD 

JSR 

ENDSEG 
EMT 

EMT 

**TEST 



kjj LDFUNC 
INTEN 

R5# WTCRDY 
#PRI07 
fPRI07,R0 
CSSPRI 
SEG 

CSESCAPE 
10000$-. 



LOAD. TH| FUNCTION IN NEXT WORD 



/LUAU in 

; INTERRUPT ENABL _ 
$WAIT FOR INTERRUPT 



INTFLG 
1$ 

40. £ EM40,ERR0 

TSERCODE 

40 

EM4Q 
ERRO 
SEG 

CSESCAPE 
10000$-. 

R5,CHERR 



C$ESEG 



;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;DID IT INTERRUPT 

;IF INTERRUPT GO TO 1$ 



;NO INTERRUPT 



;CHECK FOR FL : LOE, ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;%%END OF SEGMENTS* 



;**END OF TEST** 

C$ETST 

45** - CHECK RD W/O HDR CMP ACTUALLY READS 
;**START OF TEST** 



BGNTST 
STARS 

..*************************************************************** 

;fcHECK THAT THE READ W/O HDR CMP FUNCTION ACTUALLY READS (INTO MEMORY) 

;WE WILL WRITE A PATTERN INTO MEMORY AND THEN ISSUE 

;A READ TO OVERLAY THAT PATTERN. AFTER THE READ 

;WE CHECK TO SEE IF THE WRITTEN PATTERN HAS CHANGED. 

JIF NOT WE ISSUE IT AGAIN AT THE SAME SECTION AFTER 

{HAVING MODIFIED OUR PATTERN IN MEMORY (SINCE THERE IS 

;ONE CHANCE THAT THE DISK COULD HAVE OUR PATTERN). AFTER 

;THE SECOND READ WE CHECK THE BUFFER AGAIN. IF IT'S 

;NOT CHANGED WE REPORT AN ERROR 
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15:28 **TEST 45** 
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■ CHECK RD W/O HDR CMP ACTUALLY READS 



SEQ 0125 



3815 
3816 
3817 

3 ?4 ? 

41 
3820 

382j[ 
3822 
3823 
3824 
3825 



ilk 
mi 



_839 
3840 

3842 
3843 
3844 
3845 

l lv 

311? 

mi 

3854 
3855 
SI) 

nb 



037114 



037114 
037120 
037126 
037130 

037132 
037132 

037134 
'37142 



7146 



037162 005301 

!!5 1! Bp 

037202 012777 



037152 
037156 
"37162 
-64 

.4 

02 

037210 

mm 

037230 
037232 

037234 
037340 
037240 
037242 

037244 
037250 
037254 



004737 

104032 
000160 

104004 

012737 
005037 
012700 

012291 



oJssif 

001""" 
012 

012. . 
012777 
012737 

004537 
000016 
004537 

104010 
000054 

004537 

104010 
000044 

mi 

001014 



002160 



021356 



024350 
002162 
003052 
000200 
002160 



000050 143052 

177600 143046 

003052 143034 

003052 002166 

020456 

021276 



003052 
002160 



ST AR S 

. . *********** * ** ******* * ****** **** **** * **** * ****** 



*************** 



1$: 
2$: 



4$: 



JSR 

CKERFG 
EMT 
. WORD 

BGNSEG 
EMT 

MOV 
CLR 
MOV 
MOV 
MOV 
DEC 
BNE 
MOV 
MOV 
MOV 
MOV 

JSR 

RDNHD 

JSR 

ESCAPE 
EMT 
. WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 
CMP 
BNE 



PC/HDHOME 



OlJl-. 



C$BSEG 



#24350,TMP0 
TM"* 



TMPl 

|BUF/R0 



R0) + 



i40.£@RLDA 

|-12B.#»RLMP 

|BUF#ARLBA 

#BUF,GDDAT 

R5/LDFUNC 

R5,WTCRDY 

SEG 

CSESCAPE 
10000$-. 

R5/CHERR 
SEG 

CSESCAPE 
10000$-. 

#BUF,R2 
lipH/TMPO 



mm 


005737 002162 
001005 




TST 
BNE 


TMPl 
5$ 


037264 

mm 


005237 002162 
00p37 002160 




INC 
COM 
BR 


TMPl 
TMPO 
IS 


037276 

03738? 


mm 


5$: 


ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 


20./EM55,ERR9 

TSERCODE 

EM55 
ERR9 


037306 




6S: 







;HEADS OVER TRACK 
/HEADS GO HOME OKAY 



;%%START OF SEGMENT%% 



;SET PATTERN TO WRITE 
/CLEAR PASS INDICATOR 
;SET UP BUFFER BEGINNING 

;WRITE BUFFER 
;DONE?? 
;NO f GO BACK 

;LOAD DISK ADDRESS TO NONSENSE 
;SET WORD COUNT 
;LOAD BUS ADDRESS 
;for ERROR PRINT 



;LOA^ 
/READ W/O HDR .... 
;WAIT FOR CONTROLLER READY 
;CHECK FOR FL: LOE, ELSE EXIT SEG 



THE FUNCTION 
CMP 



IN NEXT WORD 



/CHECK CNTLR FOR ERRORS 
;CHECK FOR FL: LOE/ ELSE EXIT SEG 



;SET TO START COMPARING DATA 
;DID DATA CHANGE? 

;yes, check for end 



; DAT A DIDN'T CHANGE, CHECK 
;IF 1ST OR 2ND TIME? 
/2ND-REPQRT 1ST-TRY AGAIN 

;INC PASS COUNT 
;COMPLIMENT PATTERN 
;GO DO IT AGAIN 
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• CHECK RD W/O HDR CMP ACTUALLY READS 



SEQ 0126 



17306 104005 
7ai8 104001 




004737 021356 

JooSii 



104004 



012777 
012777 

"m 

737 



4462 
.0025 
013310 
014410 



000050 
003052 
177600 
003052 
000400 

020456 

021276 



020214 



002230 
002170 



mm 
mm 

002166 



002170 
002166 



10000$: 

mm-. 



ENOSEG 
EMT 



• SBTTL 
BGNTST 

ST 



EMT 

**TEST 46** 



C$ESEG 
C$ETST 



JttEND OF SEGMENT!* 
;**END OF TEST** 

CHECK RLBA INCREMENT WITH RD W/O HDR CMP 
;**START OF TEST** 



. . ***** ************** ******************************************** 
;CHECK THAT THE RLBA WILL INCREMENT WITH THE READ W/O HDR CMP 
;THE RLBA SHOULD CONTAIN "BUF +256." AFTER A FULL SECTOR 
READ. 
TARS 

y y *************************************************************** 



JSR 

CKERFG 
EMT 
. WORD 

BGNSEG 
EMT 

MOV 
MOV 
MOV 
MOV 
ADD 

JSR 

RDNHD 

JSR 

ESCAPE 
EMT 
• WORD 

JSR 

ESCAPE 

EMT 

. WORD 

MOV 

CMP 

BEQ 

ERRDF 

TRAP 

.WORD 

.WORD 

.WORD 



PC/HDHOME 

tmiu 



CSBSEG 



#40. „ 
PUFf 



9RLDA 
SRLBA 



#256. / GDDAT 

R5,LDFUNC 

R5# WTCRDY 

SEG 

R5#CHERR 
SEG 

CSESCAPE 
10000S-. 
E. BA/BDD AT 
BDDAT,GDDAT 

1$ 

21.#EM53,ERR4 

tsercode 

EM53 
ERR4 



jheads over track o 
;heads go home okay 



;%%START OF SEGMENTtt 



;SET UP BUS ADDRESS 
;WORD COUNT 

JFQRM EXPECTED BUS ADDRESS 
;AFTER READ 

;load the function in next word 
;read w/o hdr cmp 

;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE/ ELSE EXIT SEG 



;READ •RLBA* FOR PRESENT ADDRESS 
;DID *BA* INCREMENT PROPERLY? 
?YES, CONTINUE 
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037444 

037444 
037444 



037446 
037446 
037446 



104005 

104001 
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15:28 **TEST 46** - CHECK RLBA INCREMENT WITH RD W/O HDR CMP 



SEQ 0127 



1$: 



10000$: 



ENDTST 
L10103: 



ENDSEG 

EMT C$ESEG 



;ttEND OF SEGMENTtt 
;**END OF TEST** 



EMT 



C$ETST 



037450 
037450 



037450 



037454 
037462 
037464 



004737 

104032 
000116 



021356 



•SBTTL 
BGNTST 



**TEST 47** 



CHECK RLDA DOES INCREMENT WITH RD W/O HDR CMP 
;**START OF TEST** 



STARS 

. . *************************************************************** 

;6hECK THAT THE RLDA DOES INCREMENT BY ONE AFTER A 
5 FULL SECTOR READ W/O HDR CMP 

; AFTER THE READ THE RLDA SHOULD STILL BE THE INITIAL RLDA ♦ 1 
STARS 

*************************************************************** 



466 104004 



JSR 

CKERFG 
EMT 
• WORD 

BGNSEG 
EMT 



PC # HDHOME 



CSEXIT 
L10104- 



C$BSEG 



jHEADS OVER TRACK 

;heads go hone okay 



/ ttSTART OF SEGMENTtt 



392 



3? 



037470 
037476 
037504 



037510 
037516 

"' « 3 P 

037536 
037540 

037546 
037550 

037552 
037560 



mm 

005237 
012777 
012777 

004537 
000016 
004537 

104010 
000040 

004537 

o8ooio 

013737 
023737 



000050 

mm 

177600 
003052 

020456 

021276 



020214 



002232 
002166 



002166 
142542 

142532 
142520 



002170 
002170 



MOV 
MOV 
INC 
MOV 
MOV 

JSR 

RDNHD 

JSR 

ESCAPE 
EMT 
• WORD 

JSR 

ESCAPE 

EMT 

.WORD 

MOV 

CMP 



#40. £ GDDAT 
GDDAT,@RLDA 
GDDAT 
-128.,{1RLMP 
"T/gRLBA 



#BUF, 



R5/LDFUNC 

R5# WTCRDY 
SEG 

CSESCAPE 
10000$-. 

R5,CHERR 
SEG 

CSESCAPE 
10000$-. 

E.DA,BDDAT 
GDDAT/BDDAT 



;da to nonsense 

; SETUP DISK ADDRESS 



; WORD COUNT 

; SETUP BUS ADDRESS 



/LOAD THE FUNCTION IN 

ITH 



. _.. NEXT WORD 

;READ WltHOUT HEADER COMPARE 
;WAIT FOR CONTROLLER READY 
;CHECK FOR FL:LOE # ELSE EXIT SEG 



5CHECK CNTLR FOR ERRORS 
;CHECK FOR FL:LOE, ELSE EXIT SEG 



;READ DISK ADDRESS 

;DID SECTOR INCREMENT PROPERLY 
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037566 001404 



104462 
000026 

0144l8 



301(1052) 22-NOV 

**TEST 



78 15:35 PAGE 1-98 



037600 

037600 
037600 
Q3760Q 

mm 

037602 



104005 
104001 



47** - 

BEQ 

®W 

.WORD 
.WORD 
• WORD 



IS: 



10000$: 



ENDTST 
L10104: 



CHECK RLDA DOES 
1$ 

•<EM54,ERR4 

ERCODE 



22 

if 

EM54 

ERR4 



ENDSEG 
EMT 



C$ESEG 
CSETST 



INCREMENT WITH RD H/O HOR CMP 
;YES/ BRANCH NO, REPORT ERROR 



?%%EMD OF SEGMENT!! 
;**END OF TEST** 



SEQ 0128 



3956 



037604 



037604 
037604 



037606 
037610 
037612 
037614 



BGNMOD HRDPRM 



037644 
037646 

mm 

037652 

mm 



oflllo 

000001 



16 03 



160000 
177776 



00 

002032 

037701 

00034" 

00000 

00000 

mm 

003400 



000 



CNTYPE,CNT,1,YES 



L10105: 



BGNHRD 

• WORD L10105-LSHARD/2 



GPRML 
. WORD 

. WORD 
.WORD 
GPRMA 
.WORD 
.WORD 
.WORD 
. WORD 
GPRMA 

• WORD 
.WORD 
.WORD 
. WORD 
GPRMD 
.WORD 

• WORD 
. WORD 
.WORD 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
. WORD 
.WORD 

ENDHRD 
.EVEN 



C! 
1 

CSRMSG,CSR,0, 160000, 177776/ YES 

TSCODE 

CSRMSG 

TSLOLIM 

T5HILIM 

VECMSG,VECT,O,0,776,YES 

TSCODE 

VECMSG 

TSLOLIM 

TSHILIM 

BKMSG,PR IOR,O,340, 0,7, YES 

TSCODE 

BRMSG 

340 

TSLOLIM 
TSHILIM 

DRMSG,DRBT,0, 03400,0,7, YES 

TSCODE 

DRMSG 

03400 

TSLOLIM 

TSHILIM 
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3964 
3965 



037660 
037665 

mm 

037701 
037706 

mm 
mm 



037730 



04612 



042104 
000 
102 

042526 

042 B28 

104 
000 
037730 



030461 
051525 
042522 

020122 
000114 
052103 

044522 



000 
040440 
051523 

042514 

051117 

042526 



**TEST 47** - CHECK RLDA DOES INCREMENT WITH RD W/O HDR CMP 



SEQ 0129 



CNTYPE: 
CSRMSG: 



BRMSG: 
VECMSG: 
DRMSG: 
.EVEN 



ASCIZ 
.ASCIZ 



. ASCIZ 
.ASCIZ 
. ASCIZ 



/RL11/ 

/BUS ADDRESS/ 



/BR LEVEL/ 

/VECTOR/ 

/DRIVE/ 



037730 

037730 
037730 

037732 
037732 

037740 
037740 
°32242 
037742 
037744 
037746 

mw 

037754 
037754 



BGNMOD SFTPRM 



mi nm 



...76 
037762 
037762 

ol??66 
037770 
037770 

mm 

037774 
037776 
040000 
040002 
040004 



000025 



000130 
040004 
000001 

006044 

001052 

\m 
mm 

002130 



1 

003130 
040041 
000001 

006044 

004052 



IS: 



2$: 



BGNSFT 

.WORD L10106-LSSOFT/2 



GPRML 

• WORD 
.WORD 

• WORD 
XFERF 
.WORD 
GPRMD 
.WORD 
.WORD 
.WORD 
. WORD 
. WORD 
GPRML 
.WORD 
.WORD 
.WORD 
GPRML 

• WORD 
.WORD 
. WORD 
XFERF 
.WORD 
GPRMD 
. WORD 
.WORD 
.WORD 
.WORD 
.WORD 



DMSG,DLT,1,YES 

TSCODE 

DMSG 

1 

IfcODE 

EMSG,ELT,D, 177777, 0, 17 7777, YES 

TSCODE 

EMSG 

177777 

TSLOLIM 

TSHILIM 

SMSG £ SIZE,1,YES 

TSCODE 

SMSG 

1 

CMSG,DMPCK,1,YES 

TSCODE 

CMSG 

1 

2$ 

TSCODE 

LMSG*DLMT/D, 177777, 1,128., YES 

TSCODE 

LMSG 

177777 

T$LOLIM 

TSHILIM 



990 



040004 
040004 
040004 



051104 050117 047440 



L10106: 
dmsc: 



ENDSFT 
. EVEN 



• ASCIZ /DROP ON ERROR LIMIT/ 
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3991 
3992 



3993 



3994 

lip 
M 

400$ 
4f 



4012 
4013 



m 

040136 



040514 
040514 
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15:28 **TEST 47** - CHECK RLOA DOES INCREMENT WITH RD N/O HDR CMP 

047§i4 044523 SMSG: 

cmsg: 



SEQ 0130 



mil 



0475 



IS 



2 051105 
044514 



24 

22 
044515 



040514 



» 

It 



.ASCIZ /AUTOSIZE/, 

•ASCIZ /COMPARE DATA ON DCK/ 



t II I i 



LMSG: .ASCIZ /# OF WORDS IN ERROR REPORTED/ 



EMSG: .ASCIZ /ERROR LIMIT/ 

ENDMOD 



.=40514 



/AREA RESERVED AS PATCH AREA FOR DIAGNOSTICS. 

=40514 WAS SELECTED AS "LASTAD" TO PROVIDE APT TO LSI a 

;BIT 7 OF "LASTAD" MUST BE CLEARED TO ACHIEVE A VALID MAILBOX ADDRESS 
; WHEN RUNNING ON THE LSI-11 UNDER APT. 



11 COMPATIBILITY. 



L$LAST: : 
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CZRLBB.SUP 23-0CT-78 09:52 DIAGNOSTIC SUPERVISOR — LOW CORE SET UP SEQ 0131 

• SBTTL DIAGNOSTIC SUPERVISOR — LOW CORE SET UP 
.WORD ;SPACE FOR USER POOL POINTER 

.WORD ;SIZE 

.WORD ;CHECKSUM (NOT CURRENTLY USED) 

.WORD ;SIZE OF H.W. PTAB. ALLOCATION 

END.SUPV=.+2 
-END 200 
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CZRLBB.SUP 23-OCT-78 09:52 SYMBOL TABLE 

ABOFLA 041040 G BIT9 = 001000 G CQNTIN 

ABOPAS Q4Q756 G BLD.HH 04§202 CRDY = 

mn.PM 04332a Rr.nric S&3614 CRLF 

CRT IM 
CSR = 
CSRMSG 
CORR.S 
CURR.T 
CYLMSK 
SAAD 
f AAE 
SAAK 
SAAL 
§ABRT= 
S ADR = 
SAU = 
SBRK = 
SBSEG= 
SBSUB= 



PAGE 3 



SiiQ 0132 



ALLOC 
APT. ER 

ARLBA 
ARLCS 
ARLDA 
ARLMP 
ASSEMB= 
ASAAV 
SAAW 
SAAX 
sAAY 
SAAZ 
SABA 



A! 

k< 1 

A 

A! 

AL 

BSl6 
BA17 
BCCFBK 
BCSR 
BDDAT 
BEFORE 
BEREG 
BGN.SU= 
BINMSG 
BITO = 
BITOO = 
BIT01 = 
BIT02 = 
BIT03 = 
BIT04 = 
BIT05 = 
BITQ6 = 
BIT07 = 
BIT08 = 
BIT09 = 
BIT1 = 
BIT10 = 
BIT11 = 
BIT12 = 



BIT2 
BIT3 
BIT4 
BIT5 



000100 



loog 

0002 



047102 
040754 



= 000200 
= 000400 



067746 
041012 
045562 
020010 
046036 
040041 
000010 
037660 
064260 
040564 
064074 
007316 
017354 
067672 



$BUFF= 
$CEFG= 



P 

, 4072 

mm 



SPOIH= 
SQIO = 
5RDBU= 
SREFG= 
|REQT= 
SRESE= 
VI = 



000040 



060004 



000000 

mm 

054042 
002210 
054746 
054764 
057532 
057536 
057554 



EF04 a 

EF05 = 

m = 

EF08 = 

EF09 = 

EF10 = 

EFlI s 

EF12 = 

EF13 = 

EF14 = 

EF15 = 

EF16 = 

ELT = 
EMSG 
EMT.TR 



EM27 
EM30 
EM31 
EM32 



057572 



mm 

010417 
011110 
011137 
011176 



011544 



012165 
012225 
012270 
012335 
012376 
012441 
012506 
010607 
01254? 
012612 
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CZRLBB.SUP 23-OCT-78 09:52 SYMBOL TABLE 
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EM42 

EM43 

EM44 

EM45 

EM47 

EM5 

EM50 

EM51 

EM52 

EM53 

EM54 

EM55 

EM56 

EM57 

EM6 

EM60 

EM61 

EM62 

EM63 

EM64 

EM65 

EM66 

EM7„ 

EM70 



013537 
013575 
013652 

mm 

014105 
014146 



ERRU 
ERR12 



054400 
014702 
014754 
015026 
015102 
015150 
015216 
014274 
014336 
014410 



014456 
014514 
014556 
014564 
014636 
053106 
040520 
002230 
002226 
002232 

881111 

002240 
060640 
000204 

mm 

040560 

mm 

045546 
063760 
045506 

o°g^fo° 

061716 
015606 
016415 
016550 
016672 
016241 
016723 
"5645 
__5664 
015677 

mm 

015771 
016042 
016117 
016171 
016312 
016615 



§1 



016667 
000015 
000040 
000007 
000016 
000041 



SMOD = 
SMSG = 
$PWR = 
SRPT = 
$SEG = 
$SOFT= 
SSRV = 
SSUB = 
$SH = 
$TEST= 
-ARBAG 
GDDAT 
GETCHR 
GETCMN 
GETPAR 
GETSWI 
GET. TW 
GLBDAT 
GLBEQA 
GLBERR 
GLBSUB 
GLBTXT 
GODRVR= 
GSBIT = 
GSTAT = 
GSTINT 
GSTMES 
G$EXCP= 
HILI = 
LOLI = 
NO = 
OFFS= 
OFSI = 
,PRMA= 
;PRMD= 
;PRML = 

;rada= 

RADB = 
RADD = 
RADF = 
RADL = 
RADO= 
.RADT = 
;XFER= 
-JYES = 
HCORED 
HCOREQ 
HCQRET 
HCRCME 
HC. ADR 
HC.DEF 
HC.DIA 
HDHOME 



001 ___ 

mm 

020110 

mm 

000002 
000004 

mm 

000400 
000002 
000001 
000000 
000400 

mm 

000002 
000000 
000140 
000000 
000040 
000200 
000120 
000020 
000100 
000004 
000010 
045256 
045166 
041002 
007264 
040552 
040544 

imn 



HOREND 

HDRLST 

HDRTAB 

HERTZ. 

HNFMES 

HQLDSP= 

HPTCOD 

HRDPRM 

Htf.ADP 

H$AAB 

ININIT 

INITCO 

INITIA 

INIT.M 

INIT.R 

INPUTA 

INTEN = 

INTFLG 

INTFOR 

INTSRV 

INVAL. 

INVINT 

INV.SW 

IN.SUF 

ISAU = 

ISCLN = 

:*du = 

ifHRD = 
I$INIT= 
I, MOD = 
I$MSG = 



002660 
020712 
002504 
045126 

mm 

016750 
037604 
040550 
064606 
040772 
017140 
060020 
046104 



SPWR 
ISRPT a 
ISSEG = 
ISSFT = 
ISSRV = 
ISSUB = 
ISTST = 
JSJMP = 
KBPTR 
KBUF 
LDCSR 
LDFUNC 
LF 

LINE. F 

LINE1 

LINE2 

LINE3 

LMSG 

LOAD.F 

LOGMSG 

LOPIMN 

LOPIMX 



000041 
000167 
040624 
040626 
002146 



LPBFR 
LPCNTR 
LPT. AD 
LPT. RE 
LSI. RE 
LUP 

LUP. AD 
L$ APT 
" SAUT 
5CCP 
SCLEA 
SCO 
SDEPO 
SDESC 
SDEVP 

SDRCT 
SDRS 
SDRST 
SDTP 
SDU 
SDUT 
SDVTY 
SEF 
SEFLG 



EXP1 
EXP2 
EXP3 
HARD 
HPCP 
HPTP 
HW 
ICP 
INIT 
LADP 
LAST 
MREV 
NAME 
REPP 
REV 
SOFT 
SPC 
SPCP 
SPTP 
ST A 

sw 

TIML 
TIMU 
TIM1 
TSTI 
UNIT 
CLK. 



128 



074 G 



m... 

045144 
045140 
045134 
066106 
053"' 
002 
002. . . 
002106 
020010 r , 
002032 
002011 
002102 , 
002064 1 
017002 <; 
002112 
002070 C 
002072 f 
002112 ti 
002040 C 
020104 G 
002076 " 
002114 
002056 
002034 

m 



002046 
037606 
002016 

IWll 

002104 
017140 
002026 
040514 
002050 
002000 
002066 
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SEQ 0134 



881f 

00 



14260 

p 

\mi 

WW 
m 



m 

.10070 



0062 
0063 
0064 



mil 
mm 

061310 
045306 
000000 
054434 



NUN. LA 
NUM. NO 
NUM. UN 
NUNITS 
NXM s 

BXMMES 
XT 
NXTFOR 

DPI ERR 

tw 

OSAPTS* 

of au = 

OSBGNR= 

0$BGNS= 

OSDU = 

OSGNSWs 

QSPOIW= 

PARSES 

PAR. LA 

hisi f . 



061210 

dm 



.345 
0010 



READ.P 
REG! 




SUNIT. 

SUPERV 
SUPFLA 

IupUpr 

SVCGBL= 

SVCHAN 

SVCINS= 

SVCSUB= 

SVCTAG= 

SVCTST= 

SVHD 



06 

8J23I6 
045470 

\\M § 

000000 

050006 

mm 

000000 

mm 



nm 

TIMPLG 
TIMSRY 
TIM.CO 
TIM. OP 

TMP0 
TMP1 
TMP2 

trPfEg 

TST.AB 
TST.TO 

TYPEC 
TYPEPC 
TYPPLA 
TYPLIN 
TYPNUM 
TYPSTR 
TYP.ER 
TY.UNI 
TSARGC= 
$CODE= 
SERCO= 
$ERRN= 
EXCPs 
FLAG= 
§HILI= 
SLOLI= 
SLSYM= 
SNEST= 
$NSK0= 
$NSKl= 



SNSK2= 
SNSK3= 
SSAVLs 



SSEK1= 
$SEK2= 
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SEQ 0135 





T34 
T35 
T36 
T37 
T38 
T39 
T4 
T40 
T41 
T42 
143 



1 



44 
_45 
T46 
T47 
T5 

H 

W 

UNITST 
UNIT.D 
UNI. MA 
UOPI MN 
UOPIMX 



m 





ABS. 071320 



000 



ERRORS DETECTED: 

DSKZ:CZRLBB,DSKZ:CZRLBB=CZRLBB/ML,CZRLBB.P11, CZRLBB.SUP 
RUN-TIME: 66 62 1 SECONDS 
RUN-TIME RATIO: 323/130=2.4 
CORE USED: 16K (31 PAGES) 



